Вводится последовательность из n положительных целых чисел. найтинаименьшее число среди чётных элементов последовательности. n=1-100 lazarus

Var n,min,a:integer;
begin
readln(n);
min:=30000;
for n:=n downto 1 do begin
read(a);
if (not odd(a)) and (a<min) then min:=a;
end;
writeln(min);
end.