Написать программу в Паскале, которая находит максимальное нечетное отрицательное число среди чисел, уже записанных в готовом текстовом файле, и выводит результат в другой файл.

Program n1;

var a, max: integer;

f: text;

begin

assign (f,'input. txt') ;

reset (f) ;

max:=0;

while not eof (f) do

begin

read (f, a) ;

if (abs (a) >max) and (a<0) and (a mod 2 0) then max:=a;

end;

close (f) ;

assign (f,'output. txt') ;

rewrite (f) ;

write (f, max) ;

close (f) ;

end.