Двумерный массив. Найти максимальный четный отрицательный элемент

Uses CRT;
Const n=5;
var a:array[1..n,1..n] of integer;
    i,j,max:integer;
    begin
    ClrScr;
    for i:=1 to n do
    for j:=1 to n do
    begin
         a[i,j]:=Random(31)-9;
         gotoxy(j*5+5,i);
         write(a[i,j]);
    end;
max:=a[1,1];
    for i:=1 to n do
    for j:=1 to n do
    if (a[i,j]<0) and (a[i,j] mod 2=0) then
    begin
         if max>a[i,j] then max:=a[i,j];
    end;
    writeln('');
    writeln('Max=',max);
end.

const
  nmax=100;
var
  a: array[1..nmax,1..nmax] of integer;
  n,m,i,j,max,k,imax,jmax: integer;
begin
  write('Введите размеры массива: ');
  readln(n,m);
  writeln('Массив:');
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      a[i,j]:=random(199)-99;
      write(a[i,j]:5);
    end;
    writeln;
  end;
  writeln;
  
  {здесь находим первый отрицательный четный элемент
  или его отсутствие}
  for i:=1 to n do
    for j:=1 to m do
      if (a[i,j] mod 2=0)and(a[i,j]<0)and(k=0) then
      begin
        max:=a[i,j];
        inc(k);
        imax:=i;
        jmax:=j;
      end;
      
  if k=0 then writeln('В массиве нет отрицательных четных элементов')
    else
    begin 
      max:=a[imax,jmax];
      for i:=1 to n do
        for j:=1 to m do
          if (a[i,j]>max)and(a[i,j] mod 2=0)and(a[i,j]<0) then
          max:=a[i,j];
    writeln('Максимальный отрицательный четный элемент: ',max);
    end;
  
  readln;
end.