Выяснить, каких символов в тексте больше - Turbo Pascal

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

выяснить, каким символом в заданном тексте больше- цифр или пробелов( не исключая и случай равенства)ю[PASCAL]

Решение задачи: «Выяснить, каких символов в тексте больше»

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

var
  s: string;
  i, spaces, digits: byte;
 
begin
  Write('Введите текст: ');ReadLn(s);
  for i := 1 to Length(s) do
  begin
    if s[i] = ' ' then Inc(spaces);
    if s[i] in ['0'..'9'] then Inc(digits)
  end;
  if spaces > digits then WriteLn('Пробелов больше')
    else if spaces < digits then WriteLn('Цифр больше')
      else WriteLn('Цифр и пробелов поровну');
  ReadLn
end.

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

В начале объявляются переменные: s (строка), i (байт), spaces (байт), digits (байт).
Вводится строка с помощью функции ReadLn.
Затем происходит цикл for, который проходит по каждому символу в строке.
Внутри цикла проверяется, является ли текущий символ пробелом. Если да, то увеличивается значение переменной spaces на единицу.
Также проверяется, является ли текущий символ цифрой от 0 до 9. Если да, то увеличивается значение переменной digits на единицу.
После завершения цикла выводится сообщение, которое говорит о том, сколько пробелов и цифр содержится в строке.
Если количество пробелов больше, чем количество цифр, выводится сообщение Пробелов больше.
Если количество пробелов меньше, чем количество цифр, выводится сообщение Цифр больше.
Если количество пробелов и цифр одинаково, выводится сообщение Цифр и пробелов поровну.
После вывода всех сообщений вызывается функция ReadLn для чтения следующего ввода.