Посчитать в сколько раз в натуральном числе N встретилась цифра M. Циклы с пред- и постусловием - Free Pascal

var
  k, m, n : integer;
begin
  repeat
    write('введите натуральное число: ');
    readln(n);
    if n <= 0 then writeln('это не натуральное число!')
  until n > 0;
  repeat
    write('выберите цифру которую нужно посчитать: ');
    readln(m);
    if not (m in [0..9]) then writeln('неверный ввод цифры')
  until m in [0..9];
  k := 0;
  while n <> 0 do
  begin
    if n mod 10 = m then inc(k);
    n := n div 10      
  end;
  writeln(k, ' цифр ', m, ' в данном числе');
  readln
end.