Задача паскаль про число

[Flower2]

Дано натуральное число, найти максимальную цифру и посчитать ее количество. Я смогла сделать, чтобы искало макс число и выводило на экран. Только как посчитать ее количество не знаю.

var n,k:integer;

begin
writeln('Число ');
readln(n);

k:=n mod 10;

while n>0 do begin

      n:=n div 10;

      if k<(n mod 10) then k:=n mod 10;

      if k=9 then break;

end;

writeln(k);

end.

n введённое число, k максимальное

[ZX Spectrum-128]

посчитать ее количество

Что означает количество цифры?
Может быть, количество цифр в числе?

[Аватар]

Если в один цикл, то держать счетчик найденных цифр, в виде массива например array Conts[0..9] of Byte. И прибавлять 1 по соответствующему индексу

Если в два цикла, то вторым прогоном просто посчитать количество вхождений нужной цифры

[Mad_Cat]

{ c:integer;}
{.......}
c:=0;
while n>0 do begin
if k=(n mod 10) then c:=c+1;
n:=n div 10;
end;
writeln(c);
{...........}
end.

[ZX Spectrum-128]

var
  m,i,n,k:integer;
begin
  writeln('Число ');
  readln(n);
  m:=n;
  k:=n mod 10;
  while n>0 do
    begin
      n:=n div 10;
      if k<(n mod 10) then
        k:=n mod 10;
    end;
  writeln(k);
  i:=1;
  n:=m;
  k:=n mod 10;
  while n>0 do
    begin
      n:=n div 10;
      if k=(n mod 10) then
        inc(i);
    end;
  writeln(i);
  readln;
end.