Соседи элемента двумерного массива

{óãëû}
if((i=1)and(j=1)and((a[i,j])=a[i+1,j+1])and(a[i,j]=a[i,j+1])and(a[i,j]=a[i+1,j]))
or((i=1)and(j=m)and((a[i,j])=a[i+1,j-1])and(a[i,j]=a[i,j-1])and(a[i,j]=a[i+1,j]))
or((i=m)and(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,j+1]))
or((i=m)and(j=m)and((a[i,j])=a[i-1,j-1])and(a[i,j]=a[i,j-1])and(a[i,j]=a[i-1,j]))
{ïåðèìåòð}
or((i=1)and(j in [2..m-1])and((a[i,j])=a[i+1,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,j+1])and(a[i,j]=a[i,j-1]))
or((i=m)and(j in [2..m-1])and((a[i,j])=a[i-1,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,j+1])and(a[i,j]=a[i,j-1]))
or((j=1)and(i in [2..m-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+1,j])and(a[i,j]=a[i+1,j+1]))
or((j=m)and(i in [2..m-1])and((a[i,j])=a[i-1,j-1])and(a[i,j]=a[i-1,j])
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]))
{îñòàëüíîå}
or((i<>1)and(i<>m)and(j<>1)and(j<>m)
and(a[i,j]=a[i+1,j+1])and(a[i,j]=a[i-1,j-1])and(a[i,j]=a[i-1,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])and(a[i,j]=a[i,j+1])and(a[i,j]=a[i,j-1]))
then b[i,j]:=1 else b[i,j]:=0;

const n=5;a1:array[1..n,1..n] of integer =((1,1,1,2,3),
                                          (1,1,1,2,1),
                                          (1,1,1,1,3),
                                          (1,1,1,1,3),
                                          (1,1,1,1,3));
type mas=array[1..n,1..n] of integer;
var a,b:mas;
    i,j: integer;
procedure v(m:mas);
begin
  for i:=1 to n do
   begin
    for j:=1 to n do
     write(m[i,j]:3);
    writeln
   end;
  writeln
end;
begin
  randomize;
  for i:=1 to n do
   for j:=1 to n do
    begin
     b[i,j]:=0;
     a[i,j]:=a1[i,j]
    end;
  v(a);
  for i:=2 to n do
   for j:=2 to n do
    if (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])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 b[i,j]:=1;
  v(b);
  readln
end.

for i:=2 to n-1 do for j:=2 to n-1 do begin
  b[i,j]:=1;
  for ii:=i-1 to i+1 do for jj:=j-1 to j+1 do
    if a[i,j]<>a[ii,jj] then b[i,j]:=0;
end;