Найти сумму - Pascal ABC (247999)

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

Дан символьный файл последовательности целых чисел. Найти их сумму. Числа разделены пробелом.Например: 123 48 5000 6. Вывесли в другой файл:5177. Как сделать через строки знаю, нужно с применением функций ord и chr. со строками:

while not eof(f) do
  begin
    s:='';
    read(f, c);
   while c <> ' ' do
    begin
    s:=s+c;
    read(f,c);
    end;
    val(s, n, err);
    sum:=sum+n;
end;
 write(sum);
 write(f2, sum, ' ')

Решение задачи: «Найти сумму»

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

var c,sum:integer;
     f:text;
.....................................
sum:=0;
while not seekeof(f) do
 begin
  read(f,c);
  sum:=sum+c;
 end;

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

В данном коде на языке Pascal ABC происходит подсчёт суммы чисел из файла f.

Объявляются три переменные: c — для хранения текущего числа, sum — для хранения суммы чисел, f — для открытия файла.
Переменная sum инициализируется нулём.
Открывается файл f для чтения с помощью команды openfile(f,fname,'r').
Запускается цикл while, который выполняется до тех пор, пока не будет достигнут конец файла (eof).
В каждой итерации цикла считывается число c из файла f с помощью команды read(f,c).
Считанное число добавляется к переменной sum.
По завершении цикла while закрывается файл f с помощью команды closefile(f).
Выводится значение переменной sum.