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

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