9 класс. Сделайте программу в паскале Ввести натуральное число и определить, какие цифры встречаются несколько раз, если никакие не повторяются вывести: "Цифры не повторяются."

У меня получилось ну это не правильно!

program five;

var n, m, i, j, k:integer;

begin

write ('Введите число:') ;

readln (n) ;

for i:=0 to 9 do

begin

k:=0;

m:=n;

while m0 do

begin

j:=m mod 10;

if j=i then k:=k+1;

m:=m div 10;

end;

writeln ('цифра ', i,' встречается ', k,' раз') ;

end;

end.

Program nd;

var n, n1, d, d1: longint;

k, a, c: integer;

b: boolean;

begin

write ('Введите число: ') ;

readln (n) ;

b: = false;

k:=0;

while (n>9) and (not b) do

begin

d: = n mod 10;

n1: = n div 10;

while (n1>0) and (not b) do

begin

d1: = n1 mod 10;

b: = d1 = d;

n1: = n1 div 10;

end;

n: = n div 10;

end;

while n0 do

begin

c:=n mod 10;

if c=d1 then k:=k+1;

n:=n div 10;

end;

if b then writeln ('в этом числе повторяется ', k+1,' раз цифра ', d1)

else writeln ('цифры не повторяются') ;

end.