Дано натуральное число. Определить Как узнать сколько раз в нём встречается младшая цифра,free pascal

var
  n,k,d,dmin:integer;

begin
  Write('n='); Readln(n);
  dmin:=10;
  while n>0 do begin
    d:=n mod 10;
    if d<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.