Задача на массив Опции

[Tatjanka]

Помогите пожалуйста с решением последней задачи.

Дан массив знаков А(15). Найти есть ли в массиве пара одинаковых знаков. Сколько их.
в задаче должна быть строка стринг (или строковый массив - array[..] of char).

[mithquessir]

По-моему так:

const
  n = 10;
var
  a:array[1..n] of char;
  i,j:integer;
begin
  for i := 1 to 10 do
  ReadLn(a[i]);
  for i := 1 to n-1 do begin
    for j := i + 1 to n do
    if a[i] = a[j] then break;
    if j < n then break;
  end;
  if i < n-1 then WriteLn('+')
  else WriteLn('-');
end.