Найти минимальное и максимальное из четных чисел и записать их в файл output.txt

var
  n,min,max:integer;
  fl:boolean;
  f:text;
 
begin
  assign(f,'C:\Files for Program Pascal\Data.txt');
  reset(f);
  fl:=true;
  while not eof(f) do begin
    if fl then begin
      read(f,n);
      if not odd(n) then begin
        min:=n; max:=n;
        fl:=false;
      end;
    end;
    read(f,n);
    if not odd(n) then begin
      if n>max then max:=n;
      if n<min then min:=n;
    end;
  end;
  close(f);
  if fl then
    writeln('В файле нет чётных чисел')
  else begin
    assign(f,'C:\Files for Program Pascal\Dataout.txt');
    rewrite(f);
    writeln(f,'минимальное число = ',min);
    writeln(f,'максимальное число = ',max);
    close(f);
  end;
end.

const
  csize=100;
 
type
  tarray=array [1..csize] of integer;
 
function ReadFile(var af:text;var arg:tarray):byte;
var
  i:byte;
begin
  i:=0;
  while not eof(af) do begin
    inc(i);
    readln(af,arg[i]);
  end;
  ReadFile:=i;
end;
 
procedure BubbleSort(var arg:tarray;asize:byte);
var
  temp:integer;
  i,j:byte;
begin
  for i:=1 to asize do
    for j:=1to asize do
      if arg[j]>arg[j+1] then begin
        temp:=arg[j];
        arg[j]:=arg[j+1];
        arg[j+1]:=temp;
      end;
end;
 
procedure RecToFile(var af:text;var arg:tarray;asize:byte);
var
  i:integer;
begin
  for i:=1 to asize do
    writeln(af,arg[i]);
end;
 
var
  ar:tarray;
  size:byte;
  f:text;
 
begin
  assign(f,'C:\Files for Program Pascal\Data.txt');
  reset(f);
  size:=ReadFile(f,ar);
  close(f);
  BubbleSort(ar,size);
  assign(f,'C:\Files for Program Pascal\Dataout.txt');
  rewrite(f);
  RecToFile(f,ar,size);
  close(f);
end.