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 m<>0 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 n<>0 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.