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

[Tatjanka]

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

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

[volvo]

Tatjanka

Код

const
 n = 15;
var
 s: string[n];
var
 i,j:integer;
 count: integer;
 cont: boolean;
begin
 readln(s);
 i := 1;
 while i <= length(s) do
   begin
     j := i + 1; cont := true;
     while (j <= length(s)) and cont do
       if s[i] = s[j] then
         begin
           writeln('chars ', i, ' and ', j, ' = ', s[i]);
           delete(s, i, 1); delete(s, j - 1, 1);
           inc(count); cont := false
         end
       else inc(j);
     if cont then inc(i)
   end;

 writeln('count = ', count);
end.

Должно работать...