ДАЮ 25 БАЛЛОВ!!!!! Работа с Паскалем. Найти минимальное и максимальное значение из четных чисел и записать их в файл output.txt

Ответ в файле::::::::::::::::::::::::::::::::::::::::

var a:array[1..100000] of longint;i,n,max,min:longint;    begin      Assign(input,'input.txt');Reset(input);      Assign(output,'output.txt');Rewrite(output);      readln(n); min:=maxint; max:=0;      for i:= 1 to n do begin        readln(a[i]);        if a[i] mod 2 = 0 then begin          if a[i] > max then max:=a[i];        if a[i] < min then min:=a[i];        end;      end;      Writeln('min = ',min);      Writeln('max = ',max);      Close(input);Close(Output);    end. Например  вводишь в файл input.txt 5 1 2 3 4 5 он в файле output.txt вывидет min = 2 max = 4