(паскаль авс) напишите программу которая в последовательности натуральных чисел определяет максимальное четное число. программа получает на вход количество чисел в последовательности, а затем сами числа. программа должна вывести одно максимальное четное число!

Var a:array [0..1010] of longint;
n,max,i:longint;
begin
read (n);
for i:=1 to n do
read (a[i]);
max:=a[1];
for i:=2 to n do
if ((max<a[i]) and (a[i] mod 2=0)) then max:=a[i];
write (max);
end.