Поиск локального минимума - нужны пояснения

program laba4;
const nmax=10;
var a:array[0..nmax+1,0..nmax+1] of integer;
 m,n,i,j,k,l,r,q,mx:integer;
begin
repeat
write('Количество строк m= ');
readln(m);
until m in [2..nmax];
repeat
write('Количество столбцов n= ');
readln(n);
until n in [2..nmax];
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;
r:=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
 begin
 inc(r);
 if r=1 then mx:=a[i,j]
 else if(r>1)and(a[i,j]>mx) then mx:=a[i,j];
 end;
 end;
writeln('Количество локальных минимумов= ',r);
writeln('Из них максимальный= ',mx);
readln
end.

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 := 0 to n + 1 do
  begin
    a[0, i] := maxint;
    a[m + 1, i] := maxint;
  end;