В символьном массиве рассчитать количество цифр - Pascal

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

Нужно ввести символьный массив из 8-ми элементов и найти количество цифр в этом массиве

Решение задачи: «В символьном массиве рассчитать количество цифр»

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

const
  n = 8;
 
var
  i, k: integer;
  ch: array[1..n] of char;
 
begin
  k := 0;
  for i := 1 to n do
  begin
    readln(ch[i]);
    if ch[i] in ['0'..'9'] then inc(k);
  end;
  writeln('Количество цифр: ', k);
end.

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

Переменная n инициализируется значением 8.
Объявляются две переменные i и k типа integer.
Создается массив ch типа array[1..n] of char, где n - это значение переменной n.
Инициализируется переменная k значением 0.
Запускается цикл for, который выполняется от 1 до n (используется оператор for для итерации по элементам массива ch).
Внутри цикла считывается символ из массива ch[i] с помощью функции readln().
Проверяется, является ли считанный символ цифрой от '0' до '9' с помощью оператора in.
Если считанный символ является цифрой, то переменная k увеличивается на единицу с помощью функции inc().
По завершении цикла выводится сообщение Количество цифр: k с помощью функции writeln().
Код завершается.