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

Program task1;
const n=20;
var a:array[1..n] of integer; max1,max2,i:integer;
begin
for i:= 1 to n do
begin
writeln('ââåäèòå',-i,' -ûé ýëåìåíò ìàññèâà');
read(a[i]);
end;
for i:=1 to n do
if max1=a[i] mod 2 then
max1:=0;
if max2=a[i] mod 2 then
max2:=1;
writeln('ìàêñèì ýë ñðåäè ÷åòí ÷èñåë=',max1)
writeln('ìàêñèì ýë ñðåäè íå÷åò ÷èñåë=',max2);
end.

Program task1;
const
  n=20;
var
  a:array[1..n] of integer;
  max1,max2,i:integer;
  nc,nk:integer;
 
begin
  nc:=0;
  nk:=0;
 
  for i:= 1 to n do
    begin
      write('Введите ',i,'-й элемент массива: ');
      readln(a[i]);
    end;
 
  for i:= 1 to n do
    if not odd(a[i]) then
      begin
        max1:=a[i]; // первый четный
        inc(nc);
        break;
      end;
 
  for i:= 1 to n do
    if odd(a[i]) then
      begin
        max2:=a[i]; // первый нечетный
        inc(nk);
        break;
      end;
 
  for i:=1 to n do
    begin
      if (a[i] mod 2 = 0) and (a[i]>max1) then
        max1:=a[i];
      if (a[i] mod 2 <> 0) and (a[i]>max2) then
        max2:=a[i];
    end;
  if nc=0 then
    writeln('Нет четных элементов.')
  else
    writeln('Максимальный элемент среди четных элементов массива: ',max1);
  if nk=0 then
    writeln('Нет нечетных элементов.')
  else
  writeln('Максимальный элемент среди нечетных элементов массива: ',max2);
  readln;
end.