Очень безотлагательно Напишите программу которая обретает малое и наибольшее среди чётных

Const
  lim=2000000;
var
  d,max,min:longint;
  f:Text;
begin
  Assign(f,'input.txt'); Reset(f);
  max:=-lim; min:=lim;
  while not Eof(f) do begin
    Readln(f,d);
    if (dgt;0) and (d mod 2=0) then
      if maxlt;d then max:=d
      else if mingt;d then min:=d;
  end;
  Close(f);
  Assign(f,'output.txt'); Rewrite(f);
  if minlt;gt;lim then Writeln(f,min,' ',max);
  Close(f);
end.