Сколько раз в числе встречается цифра, равная старшей?

uses crt;
var n,a,s:longint;
    mx,i,k:byte;
begin
clrscr;
repeat
write('Введите натуральное число n=');
readln(n);
until n>0;
{ищем наибольшую цифру}
a:=n;
mx:=0;
while a>0 do{пока не ноль}
 begin
  if a mod 10>mx then mx:=a mod 10;{отделяем цифры с конца и сравниваем}
  a:=a div 10;{сокращаем число}
 end;
writeln('Наибольшая цифра=',mx);
{сколько раз встречается}
a:=n;
k:=0;
while a>0 do
 begin
  if a mod 10=mx then k:=k+1;
  a:=a div 10;
 end;
writeln('Она встречается ',k,' рз.');
{составляем минимальное из цифр числа}
s:=0;
for i:=0 to 9 do{начиная с 0 ищем в числе цифры по возрастанию}
 begin
  a:=n;{запоминаем число}
  while a>0 do
   begin
    k:=a mod 10;{ищем цифру 0.1.2...9}
    if k=i then s:=s*10+k;{нашли - выводим}
    a:=a div 10;{сокращаем число на 10 и повторяем пока не проверим все цифры}
   end;
 end;
write('Минимальное число=',s);
readln
end.

Var
 N, A, i, mx: longint;
Begin
 Readln(N);
 For i:=9 downto 0 do
  Begin
   mx:=0;
   A:=N;
   While A<>0 do
    Begin
     If A mod 10 = i then inc(mx);
     A:=A div 10;
    End;
   If mx<>0 then
    Begin
     Writeln('Максимальное число: ',i);
     Writeln('Встречается ',mx,' раз');
     break;
    End;
  End;
 mx:=0;
 For i:=0 to 9 do
  Begin
   A:=N;
   While A<>0 do
    Begin
     If A mod 10 = i then mx:=mx*10+i;
     A:=A div 10;
    End;
  End;
 Writeln('Минимальное число: ',mx);
 Readln;
End.