Найти сумму чётных чисел в файле - Free Pascal

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

В файле хранятся целые числа. Найдите сумму четных чисел без использования массивов?

Решение задачи: «Найти сумму чётных чисел в файле»

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

var
  f: file of Integer;
  i: Integer;
  s: Longint;
begin
  Assign(f,'file.bin'); Reset(f);
  while not EOF(f) do begin
    Read(i); if not Odd(i) then s:=s+i;
  end;
  Close(f);
  WriteLn('Сумма четных: ',s);
end.

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

Объявляются три переменные:
- f: файл типа file of Integer (предполагается, что в файле записаны целые числа);
- i: целочисленная переменная для чтения чисел из файла;
- s: переменная типа Longint для хранения суммы четных чисел.
Открывается файл 'file.bin' с помощью функции Assign(f,'file.bin').
Файл переводится в начальное положение с помощью функции Reset(f).
Запускается цикл while, который выполняется до тех пор, пока не достигнется конец файла (EOF).
В каждой итерации цикла из файла считывается очередное число с помощью функции Read(i).
Если число нечетное (Odd(i) = False), то оно не учитывается в сумме.
Если число четное (Odd(i) = True), то оно добавляется к переменной s.
После окончания цикла файл закрывается с помощью функции Close(f).
Выводится сообщение с помощью функции WriteLn, в котором указывается значение переменной s - сумма четных чисел.