Сумма чисел в файле - Pascal

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

1)Ограничение по времени работы программы: 1 секунда В каждой строке текстового файла записано одно целое число. Посчитайте сумму чисел в файле и выведите результат в другой файл. Входные данные Входные данные к этой задаче записаны в файле input.txt. Файл содержит не более 100000 строк, в каждой строке записано одно целое число, не превосходящее по модулю 10⁹. Выходные данные Программа должна вывести в файл output.txt сумму всех чисел во входном файле. 2)Ограничение по времени работы программы: 3 секунды В каждой строке текстового файла могут встречаться цифры и иные символы. Числом будем считать последовательность цифр, которая не может быть расширена до большего числа (как в задаче предыдущего урока). При этом если перед числом стоит символ "-", то оно считается отрицательным. Найдите сумму всех чисел в этом файле. Входные данные Входные данные к этой задаче записаны в файле input.txt. Файл содержит произвольные ASCII-символы и имеет размер не более 1 МБ. Длина каждого числа во входном файле не более 9 цифр. Выходные данные Программа должна вывести в файл output.txt сумму всех чисел во входном файле. Заранее, огромное спасибо!

Решение задачи: «Сумма чисел в файле»

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

  while not EoF do begin
    ReadLn(s);
    { тут все как в прошлой правильно написанной программе }
    sum:=sum+num;
  end;
  WriteLn(sum);

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

Заголовок цикла while not EoF do begin означает, что цикл будет выполняться до тех пор, пока не наступит условие EoF (End of File).
ReadLn(s); - это операция чтения строки из файла в переменную s.
В цикле происходит сложение чисел из файла и сохранение их в переменную sum.
WriteLn(sum); - это операция записи суммы в файл.
Переменная s представляет собой строку, которая считывается из файла.
Переменная num представляет собой число, которое считывается из файла и добавляется к сумме.
Переменная sum представляет собой сумму чисел, которые считываются из файла.
EoF - это условие, которое указывает на конец файла.
Цикл выполняется до тех пор, пока не будет достигнут конец файла.
Значение переменной sum выводится в файл с помощью операции WriteLn(sum);.