Найти максимальное четное из заданных чисел

uses crt;
var a:array[1..100] of integer;
i,j,n,max:integer;
BEGIN
clrscr;
repeat
 write('n = ');
 read(n);
until n>0;
 
for i:=1 to n do
 a[i]:=random(10)+19;
 
 for i:=1 to n do
  write(a[i]:4);
 
  writeln;
  max:=a[1];
  for i:=1 to n do
   if a[i] mod 2=0 then
    if a[i]>max then
     max:=a[i];
 
     writeln('MAX = ',max);
readkey;
END.

uses crt;
var a:array[1..100] of integer;
i,j,n,max,k:integer;
BEGIN
clrscr;
repeat
 write('n = ');
 read(n);
until n>0;
 
for i:=1 to n do
 read(a[i]);
 
 for i:=1 to n do
  write(a[i]:4);
 
  writeln;
  max:=a[1];
  for i:=1 to n do
   if a[i] mod 2=0 then
   begin
   inc(k);
    if a[i]>max then
     max:=a[i];
   end;
   if k=0 then
    writeln('Нету четных.. ')
     else
      writeln('MAX = ',max);
readkey;
END.