Ввести натуральное число и определить какие цифры встречаются несколько раз Массивы использовать нельзя. Можно решать только через : For, while, if, repeat, until, else и все. Кто-нить сможет помочь?

program zifry;

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

begin

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

readln (n) ;

for i:=0 to 9 do

begin

k:=0;

nn:=n;

while nn0 do

begin

j:=nn mod 10;

if j=i then inc (k) ;

nn:=nn div 10;

end;

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

end;

end.