Посчитать количество максимальных цифр в числе

[furymaxim]

Код программы,которая вычисляет максимальную цифру в числе:

Program for;
var n:longint;
    max,i:integer;
begin
writeln('N=');
readln(n);
max:=0;
for i:=0 to n do
 begin 
  if max < n mod 10 then max:=n mod 10;
  n:=n div 10
 end;
writeln('max=',max)
end.

Как сделать так,чтобы выводилось еще и количество макс.цифр числа?Например в 68999 ут количество макс.цифры числа составляет 3

Program for5;
var n:longint;
    max,i,k,kol:integer;
begin
writeln('N=');
readln(n);
max:=0;
for i:=0 to n do
 begin 
  if max < n mod 10 then max:=n mod 10;
  n:=n div 10
 end;
for k:=1 to n do
 begin
if kol < n mod 10 then 
kol:=n mod 10;
n:=n div 10;
 end;
if kol=max then
k:=k+1 else
 if kol <> max then 
repeat
if kol < n mod 10 then 
kol:=n mod 10;
n:=n div 10
until kol=max;
writeln('k= ', k);
writeln('max=',

k у меня будет считать это кол-во,когда макс.цифра повторяется,то в счетчик идет +1,если же нет,то у меня repeat until идет до тех пор,пока не найдется следующее число до n...запутался...

[furymaxim]

Program for5;
var n:longint;
    max,i,k,kol:integer;
begin
writeln('N=');
readln(n);
max:=0;
for i:=0 to n do
 begin 
  if max < n mod 10 then max:=n mod 10;
  n:=n div 10
 end;
for k:=1 to n do
 begin
repeat
if kol < n mod 10 then 
kol:=n mod 10;
n:=n div 10;
until
kol=max
end;
if kol=max then
k:=k+1;
writeln('k= ', k);
writeln('max=',max)
end.

Так тоже не прибавляется..

[min@y™]

45.png