Найти минимальное и максимальное из чётных положительных чисел, записанных в файле - PascalABC.NET

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

1)Найти минимальное и максимальное из чётных положительных чисел, записанных в файле input.txt . Количество чисел неизвестно.Результат записать в файл output.txt .Учтите,что положительных чисел может и не быть.

Решение задачи: «Найти минимальное и максимальное из чётных положительных чисел, записанных в файле»

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

var
  min, max, a: integer;
  first: boolean;
begin
  assign(input,'input.txt');
  reset(input);
  first:=true;
  while not eof(input) do begin
    read(a);
    if (a>0) and not odd(a) then begin
      if (a<min) or first then min:=a;
      if (a>max) or first then max:=a;
      first:=false;
    end;
  end;
  close(input);
  assign(output,'output.txt');
  rewrite(output);
  if not first then begin
    writeln('Min = ', min);
    writeln('Max = ', max);
  end else writeln('Not found');
  close(output);
end.

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

Объявлены переменные: min, max, a (целочисленные), first (булевый).
Открывается файл input.txt для чтения.
Устанавливается позиция чтения в начало файла.
Устанавливается флаг first в true.
Запускается цикл while, который выполняется до конца файла.
В каждой итерации цикла считывается число a из файла.
Проверяется, является ли число положительным и чётным (не является 0 и не является odd).
Если число удовлетворяет условиям, то проверяется:
- Если число меньше min или первая итерация, то min присваивается это число.
- Если число больше max или первая итерация, то max присваивается это число.
- Флаг first сбрасывается в false.
По завершении цикла, файл input.txt закрывается.
Открывается файл output.txt для записи.
Файл output.txt перезаписывается.
Если min и max определены (не равны 0), то выводятся значения min и max.
Если min и max не определены (равны 0), то выводится сообщение Not found.
Файл output.txt закрывается.