Подсчитать количество локальных минимумов двумерной матрицы

function LocMin(i,j:integer;a:arr):boolean;
begin k:=0;
LocMin:=((i=1)or(a[i,j]<a[i-1,j]))and
        ((j=1)or(a[i,j]<a[i,j-1]))and
        ((i=10)or(a[i,j]<a[i+1,j]))and
        ((j=10)or(a[i,j]<a[i,j+1]));
  for i:=1 to 10 do
   for j:=1 to 10 do
    if LocMin then 
  k:=k+1;
end;

 for i:=1 to 10 do
   for j:=1 to 10 do
     if LocMin then k:=k+1;

const nmax=20;
type mtr=array[,] of integer;
function kol_min(a:mtr;m,n:integer):integer;
var i,j,k,l,q:integer;
begin
result:=0;
for i:=1 to m do
for j:=1 to n do
 begin
  q:=0;
  for k:=i-1 to i+1 do
  for l:=j-1 to j+1 do
  if a[k,l]>a[i,j] then inc(q);
  if q=8 then inc(result){если все вокруг строго больше, то лок мин.}
 end;
end;
var a:mtr;
    m,n,i,j:integer;
begin
randomize;
repeat
write('Количество строк от 2 до ',nmax,' m=');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов от 2 до ',nmax,' n=');
readln(n);
until n in [2..nmax];
setlength(a,m+2,n+2);
{создадим периметр вокруг матрицы из самых больших чисел типа integer}
for i:=0 to n+1 do
 begin
  a[0,i]:=maxint;
  a[m+1,i]:=maxint
 end;
for i:=1 to m do
 begin
  a[i,0]:=maxint;
  a[i,n+1]:=maxint
 end;
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[i,j]:3);
  writeln
 end;
writeln('Количество локальных минимумов=',kol_min(a,m,n))
end.