Найти значение наимньшего числа, из всех четных введеных чисел, не превышая 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.