Дано натуральное число N. Указать наиболее часто встречающиеся цифры числа N — Pascal(Паскаль)

uses crt;
var n,m:longint;
    k,mx,imx,i,c:byte;
begin
clrscr;
repeat
write('n=');
readln(n);
until abs(n)<=2000000000;
n:=abs(n);
mx:=0;
imx:=0;
for i:=0 to 9 do{перебираем цифры}
 begin
  m:=n;{запоминаем исходное число}
  c:=0;
  while m>0 do{пока оно не ноль}
   begin
    k:=m mod 10;{отделяем по 1 цифре}
    if k=i then c:=c+1;{если равна очередной, считаем}
    if c>mx then{если этой цифры больше других}
     begin
      mx:=c;{ее кол-во - макс}
      imx:=i;{запоминаем эту цифру}
     end;
    m:=m div 10;{идем к следующей цифре}
   end;
 end;
write('Наиболее часто встречается цифра ',imx,'  ',mx,' рз.');
readln
end.