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

подскажите как найти это число хотя бы

Program n1;

type z = array of integer;

var a: z;

i, n, max: integer;

f: text;

begin

assign (f,'input. txt');

reset (f);

n:=0;

while not eof (f) do

begin

n:=n+1;

setlength (a, n);

read (f, a[n-1]);

end;

close (f);

max:=a[0];

for i: = 1 to n-1 do

if (a[i]>max) and (a[i] mod 20) then max:=a[i];

assign (f,'output. txt');

rewrite (f);

write (f, max);

close (f);

end.