Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 30000

Var n, i: Integer;
      a, min: LongInt;
Begin
   min := 30000;
   readln(n);
   for i := 1 to n do begin
      read(a);
      if (a mod 2=0) and (a < min) then min := a;
   end;
   writeln(min);
End.