Повторяющиеся элементы массива символов - Turbo Pascal

Формулировка задачи:

Есть код, который находит повторяющиеся символы в массиве, вот он:

program nomer2;
const N = 7;
var
    a: array[1..N] of char;
    i, k: integer;
begin
writeln('Ishodniy massiv');
for i:=1 to N do begin
a[i] := chr(Random(97, 122));;
    writeln(a[i]:3);
end;
    for i:=1 to N-1 do 
        for k:=i+1 to N do 
            if a[i] = a[k] then begin
                writeln('Est povtori, povtoryaetsya element (elementi) ',a[i]);
            end;
    writeln('Povtoryayushihsya elementov net!');
end.

Но при каждом запуске выводится writeln('Povtoryayushihsya elementov net!'), даже когда есть символы. Что изменить, дабы эта надпись выводилась когда нужно? Ещё когда ставлю N равный к примеру 20, программа выводит по 2-3 символа сразу, например: Est povtori, povtoryaetsya element (elementi) - x Est povtori, povtoryaetsya element (elementi) - x Est povtori, povtoryaetsya element (elementi) - x

Решение задачи: «Повторяющиеся элементы массива символов»

textual
                            Листинг программы 
                        

                            program nomer2;
const N = 7;
var
    a: array[1..N] of char;
    i, k: integer;
    povtor:set of char;
begin
  writeln('Ishodniy massiv');
  for i:=1 to N do begin
     a[i] := chr(Random(97, 122));;
    writeln(a[i]:3);
  end;
  povtor :=[];
  for i:=1 to N-1 do
     for k:=i+1 to N do
       if (a[i] = a[k]) and not (a[i] in povtor) then begin
                writeln('Est povtori, povtoryaetsya element (elementi) ',a[i]);
                Include(povtor, a[i]);
            end;
    if povtor=[] then
      writeln('Povtoryayushihsya elementov net!');
end.
                        