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

program local_min;
uses crt;
 
var
  a: array[1 ..20 , 1 .. 20] of integer;
  n,m,o,l: integer;
function local_min(i, j: integer): boolean;
var
b: boolean;
s, k: integer;
begin
  b := true;
 
  for s := pred(i) to succ(i) do
    for k := pred(j) to succ(j) do
      if (s in [1 .. n]) and (k in [1 .. m]) then
        if (s = i) and (k = j) then continue
        else b := b and (a[s, k] > a[i, j]);
  local_min := b;
end;
var
  i, j: integer;
begin
 
  writeln('');
  write('stroki'); readln(n);
  write('stolbci'); readln(m);
  for i:=1 to n do begin
  for j:=1 to m do begin a[i,j]:=random(20);
  write (a[i,j],' '); end;
  writeln;
  end;
 
  writeln(' results: ');
  for i := 1 to n do
    for j := 1 to m do
      if local_min(i, j) then begin
        writeln('a[',i,',',j,'] = ',a[i, j]);
        end;
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
     if a[i,1]>a[i,j+1] then
     l:=a[i,j];
     end;
  end;
  writeln('Max=',l  );
end.

writeln(' results: ');
 l:=-maxint;
  for i := 1 to n do
    for j := 1 to m do
      if local_min(i, j) then
       begin
        writeln('a[',i,',',j,'] = ',a[i, j]);
        if a[i,j]>l then l:=a[i,j];
       end;

l:=-maxint-1;