Поиск Локальных минимумов

program rgz_matr;
uses crt;
type matr=array[1..10,1..13]of integer;
var A,B:Matr;
    kol,kol2,m1,m2,n1,n2:integer;
 
procedure Vvod_Matr(var A: Matr;
                    m,n: integer);
    var i,j:integer;
    begin
     for i:=1 to m do
       for j:=1 to n do
             read(A[i,j])
    end;
 
procedure lok_min(A: Matr;
                  var kol:integer;
                  m,n:integer);
    var i,j:integer;
    begin
    kol:=0;
     for i:=2 to m do
       for j:=1 to n do
       if (A[i,j]<A[i-1,j-1]) and (A[i,j]<A[i-1,j]) and (A[i,j]<A[i+1,j+1]) and (A[i,j]<A[i,j-1]) and (A[i,j]<A[i,j+1]) and (A[i,j]<A[i+1,j-1]) and (A[i,j]<A[i+1,j]) and (A[i,j]<A[i+1,j+1]) then kol:=kol+1;
    end;
begin
writeln('vvedite razmernost matrici');
read(m1,n1);
writeln('vvedite matric');
Vvod_Matr(A,m1,n1);
lok_min(A,kol,m1,n1);
writeln(kol);
writeln('vvedite razmernost matrici');
read(m2,n2);
writeln('vvedite matric');
Vvod_Matr(B,m2,n2);
lok_min(B,kol2,m2,n2);
writeln(kol2);
end.

uses crt;
type Matr=array[1..10,1..10]of integer;
var a:Matr;
    i,j,k:integer;
function LocMin(i,j:integer;a:Matr):boolean;
begin
LocMin:=((i=1)or(a[i,j]<a[i-1,j]))and
        ((j=1)or(a[i,j]<a[i,j-1]))and
        ((i=5)or(a[i,j]<a[i+1,j]))and
        ((j=1)or(a[i,j]<a[i,j+1]));
end;
begin
clrscr;
randomize;
for i:=1 to 10 do
   begin
    for j:=1 to 10 do
      begin
        a[i,j]:=random(20);
        write(a[i,j]:4);
      end;
    writeln;
   end;
writeln;
k:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if LocMin(i,j,a)then k:=k+1;
writeln('k=',k);
readln
end.

program rgz_matr;
{$R-}
uses crt;