Локальный минимум матрицы

[rokss]

Элемент матрицы называется локальным минимумом, если он строго меньше, всех имеющихся у него соседей. посчитать колличество локальных минимумов заданной матрицы размером 10Х13. НЕ МОГУ ПОНЯТЬ ПОЧЕМУ b:=b??? И правильно ли составлена программа

program oo;
uses crt;

var
  a: array[1 ..20 , 1 .. 20] of integer;
  n,m: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 .. 20]) and (k in [1 .. 20]) 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;

end.