Вычислить сумму чисел в каждой строке файла - Turbo Pascal

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

Дан файл, каждая строка которого может содержать одно или несколько целых чисел, разделенных одним или несколькими пробелами. Вычислите сумму чисел в каждой строке и выведите эту сумму (для каждой строки выводится сумма чисел в этой строке). В данной задаче удобно считывать данные построчно. N неограниченно. Примеры входные данные 2 2 3 4 1 5 выходные данные 4 7 6

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

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

uses crt;
var f:text;
    a,sm:integer;
    s:string;
begin
clrscr;
assign(f,'input.txt');{файл в папке с программой}
reset(f);
while not eof(f) do
 begin
  sm:=0;
  while not eoln(f) do
   begin
    read(f,a);
    sm:=sm+a;
   end;
  writeln(sm);
  readln(f,s);
 end;
close(f);
readln
end.

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

В первой строке кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
Переменная f типа text предназначена для работы с текстовыми файлами.
Переменные a, sm и s используются для хранения чисел и строк.
Функция clrscr очищает экран перед началом работы с файлом.
Функция assign(f,'input.txt') устанавливает путь к файлу, с которым будет работать программа.
Функция reset(f) переводит файл в режим чтения.
Вложенный цикл while не используется. Вместо этого используется цикл while not eof(f) do, который будет выполняться до конца файла.
Внутри цикла while not eoln(f) do происходит чтение числа из файла в переменную a с помощью функции read(f,a).
Затем переменная sm увеличивается на значение a с помощью оператора +=.
После окончания чтения числа цикл while завершается.
Следующая строка кода читает строку из файла в переменную s с помощью функции readln(f,s).
Затем цикл while завершается.
После этого файл закрывается с помощью функции close(f).
И, наконец, выводится значение переменной sm с помощью функции writeln(sm).
Программа завершается вызовом функции readln.