Найти минимальный четный элемент массива целочисленного значения — Pascal(Паскаль)

const n = 10;
var
  a:array[1..n] of integer;
  i,min:integer;
begin
  min:= maxint;
  for i:= 1 to n do begin
    a[i]:= random(100);
    write(a[i],' ');
    if (a[i] mod 2 = 0) and (a[i] < min) and (a[i] <> 0) then min:= a[i];
  end;
  writeln;
  if min <> maxint then
  writeln(min);
end.