Самая большая цифра в числе и количество вхождений этой цифры в число N

var n,m,c,k:integer;
begin
repeat
write('Введите натуральное 5 значное число n=');
readln(n);
until(n>9999)and(n<=99999);
m:=-1;//пусть макс=-1
k:=0; //кол.=0
while n>0 do
 begin
  c:=n mod 10; //последняя цифра
  if c=m then inc(k)//если равна максимальной, считаем
  else if c>m then  //если больше
   begin
    m:=c; //запомним
    k:=1; //пока 1 раз
   end;
  n:=n div 10;//отбрасываем последнюю цифру
 end;
writeln('Наибольшая цифра=',m);
writeln('Ее количество=',k)
end.

var n,m,c,k:integer;
begin
repeat
write('Введите натуральное 5 значное число n=');
readln(n);
until(n>9999)and(n<=99999);
m:=-1;//максимальная цифра, пока=-1, потому что может быть число = 0
k:=0; //количество вхождений максимальной цифры в число, пока=0
while n>0 do
 begin
  c:=n mod 10; //последняя текущая цифра числа
  if c=m then inc(k)//если равна максимальной, считаем
  else if c>m then  //если больше
   begin
    m:=c; //запомним
    k:=1; //пока 1 раз
   end;
  n:=n div 10;//отбрасываем последнюю цифру
 end;
writeln('Наибольшая цифра=',m);
writeln('Ее количество=',k)
end.