Подсчет суммы цифр в тексте - Pascal

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

Дан текстовый файл, нужно подсчитать сумму цифр (именно цифр), которые есть в тексте. Буду сильно благодарен

Решение задачи: «Подсчет суммы цифр в тексте»

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

var f:text;
    c:char;
    s:integer;
begin
assign(f,'1.txt');//файл в папке с программой
reset(f);
s:=0;
while not seekeof(f) do
 begin
  read(f,c);
  if c in ['1'..'9'] then s:=s+ord(c)-ord('0');
 end;
close(f);
write('Сумма цифр=',s)
end.

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

Переменная f - файловая переменная, отвечающая за открытие файла.
Переменная c - символьная переменная, используется для чтения символов из файла.
Переменная s - целочисленная переменная, в нее будет сохраняться сумма цифр.
Открывается файл 1.txt в текущей папке.
Обнуляется переменная s.
В цикле происходит чтение символов из файла по одному.
Если символ является цифрой от 1 до 9, то к переменной s добавляется числовое значение этой цифры.
Файл закрывается.
На экран выводится сообщение о сумме цифр в тексте.