Ввести натуральное число и определить, какие цифры встречаются несколько раз.(турбо паскаль)

Var a: string;
    i, j: integer;
    c: char;
begin
     readln(i);
     a := inttostr(i);
     for i := 1 to length(a) do
     begin
          c := a[i];
          for j := 1 to length(a) do
          begin
               if a[i+j] = c then writeln(a[j+i]);
          end;
     end;
end.

Вот такие пироги х)