Ввести натуральное число и определить какие цифры встречаются несколько раз массивы использовать нельзя. можно решать только через : 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 nn<>0 do
begin
j:=nn mod 10;
if j=i then inc(k);
nn:=nn div 10;
end;
writeln('цифра ',i,' встречается ',k,' раз');
end;
end.