Вывести наиболее часто встречающуюся цифру в тексте - Free Pascal

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

Условие: Пусть дан непустой текст, за которым следует точка. Напечатайте цифру наиболее часто встречающуюся в данном тексте (если таких цифр несколько, напечатайте любую из них). Подскажите какое условие надо чтобы найти эту цифру

Решение задачи: «Вывести наиболее часто встречающуюся цифру в тексте»

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

var
  a: array ['0'..'9'] of Integer;
  c, m: Char;
  s: String;
begin
  ReadLn(s);
  for c in s do if c in ['0'..'9'] then Inc(a[c]);
  m:='0'; for c:='1' to '9' do if a[m]<a[c] then m:=c;
  WriteLn(m);
end.

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

Объявляются переменные:
- a: массив из 10 элементов для подсчета количества каждой цифры от 0 до 9
- c: переменная для хранения текущей буквы
- m: переменная для хранения наиболее часто встречающейся цифры
- s: строка для хранения введенного текста
Вводится текст с клавиатуры и сохраняется в переменной s
Происходит итерация по каждой букве в строке s
- Проверяется, является ли текущая буква цифрой от 0 до 9
- Если да, то увеличивается счетчик в соответствующем элементе массива a
Находится наиболее часто встречающаяся цифра
- Переменная m инициализируется значением '0'
- Происходит итерация по цифрам от 1 до 9 (не включая 0)
- Если значение в соответствующем элементе массива a больше, чем значение в элементе с текущей цифрой, то текущая цифра становится новой наиболее часто встречающейся цифрой
Выводится наиболее часто встречающаяся цифра