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

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. Вот такие пироги х)