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

Uses crt;
 
const n=10;
 
type mat = array[1..n,1..n] of integer;
var a:mat;
i,j,x:integer;
 
 
Procedure LocalMin(a:mat; var x:integer);
begin
For i:=1 to n do
    For j:=1 to n do
    If (i>1) and (j>1) and (i<n) and (j<n) then
        If (a[i,j]<a[i,j+1]) and (a[i,j]<a[i,j-1]) and (a[i,j]<a[i+1,j]) and (a[i,j]<a[i-1,j]) then inc(x);
    If (i>1) and (j=1) and (i<n) and (j<n) then
        If (a[i,j]<a[i,j+1]) and (a[i,j]<a[i+1,j]) and (a[i,j]<a[i-1,j]) then inc(x);
    If (i=1) and (j>1) and (i<n) and (j<n) then
        If (a[i,j]<a[i,j+1]) and (a[i,j]<a[i+1,j]) and (a[i,j]<a[i,j]-1) then inc(x);
    If (i>1) and (j>1) and (i=n) and (j<n) then
        If (a[i,j]<a[i,j+1]) and (a[i,j]<a[i-1,j]) and (a[i,j]<a[i,j-1]) then inc(x);
    If (i>1) and (j>1) and (i<n) and (j=n) then
        If (a[i,j]<a[i-1,j]) and (a[i,j]<a[i,j-1]) and (a[i,j]<a[i+1,j]) then inc(x);
    If (i=1) and (j=1) then
        If (a[i,j]<a[i,j+1]) and (a[i,j]<a[i+1,j]) then inc(x);
    If (i=n) and (j=n) then
        If (a[i,j]<a[i,j-1]) and (a[i,j]<a[i-1,j]) then inc(x);
end;
 
begin
randomize;
writeln('Исходный массив:');
  for i:=1 to n do
  begin
      for j:=1 to n do
      begin
      A[i,j]:=random(121)-60;
      write(A[i,j]:7);
      end;
  writeln;
  end;
  LocalMin(a,x);
    
  Writeln(x);
End.