Дано естественное число. Найти сколько раз в нём встречается младшая цифра,free

Var
  n,k,d,dmin:integer;

begin
  Write('n='); Readln(n);
  dmin:=10;
  while ngt;0 do begin
    d:=n mod 10;
    if dlt;dmin then begin dmin:=d; k:=1 end
    else if d=dmin then k:=k+1;
    n:=n div 10
    end;
  Writeln('Минимальная цифра ',dmin,' встречается ',k,' раз(а)');
  Readln
end.