Определить, сколько раз в числе встречается его максимальная цифра - Turbo Pascal

Формулировка задачи:

2. Использование цикла с предусловием Дано натуральное число. Определить, сколько раз в нем встречается его максимальная цифра (например, для числа 132 233 ответ равен 3, для числа 46 336 — 2, для числа 12 345 — 1).

Решение задачи: «Определить, сколько раз в числе встречается его максимальная цифра»

Листинг программы

var
  c, m: Char;
  n: Integer;
begin
  Write('Введите число: ');
  while not EoLn do begin
    Read(c);
    if c=m then Inc(n)
    else if c>m then begin
      n:=1; m:=c;
    end;
  end;
  WriteLn('Максимальная цифра ',m,' встречается ',n,' раз');
end.

Объяснение кода листинга программы

В начале объявляются переменные: c, m и n типа Char и Integer соответственно.
Затем идет приглашение пользователю ввести число.
В цикле while происходит чтение символа из стандартного ввода и проверка, равен ли этот символ переменной m. Если да, то увеличивается значение переменной n на единицу.
Если символ больше переменной m, то переменные m и n сбрасываются на начальные значения, и цикл прерывается.
По завершении цикла выводится сообщение о максимальной цифре и количестве ее вхождений.