Надо написать программку на Паскале, без массивов. Дано натуральное число. Найти,

program zz1;
var n,min, i,kol,b,c:integer; //задаем переменные
begin
write(введите данное число ); //вводим заданное число
read(n);
b:=n; //запоминаем заданное число в иной переменной
min:=9; //задаем начальное значение для малой цифры
while ngt;0 do //в этом цикле обретаем наименьшую цифру в числе
begin
c:=n mod 10;
n:=n div 10;
if clt;min then min:=c;
end;
while bgt;0 do//в этом цикле находим количество малых цифр в числе
begin
c:=b mod 10;
b:=b div 10;
if c=min then kol:=kol+1;
end;
write(количество малых цифр = ,kol); //выводим ответ
end.