Дан двумерный массив целых чисел размера m*n . Определить, сколько в нем пар соседних одинаковых элементов

program z;
uses crt;
const n=5; m=5;
var i,j,k,k1:byte;
a:array [1..n,1..m] of integer;
begin
     clrscr;
     writeln('Ñëó÷àéíàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  begin
                       a[i,j]:=random(30)-15;
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     k:=0;
     for i:=1 to n-1 do
         for j:=1 to m do
             if a[i,j]=a[i+1,j]
                then
                    k:=k+1;
     for i:=1 to n do
         for j:=1 to m-1 do
             if a[i,j]=a[i,j+1]
                then
                    k:=k+1;
     if k>0
        then
            writeln('Êîë-âî ñîñåäíèõ îäèíàêîâûõ ýëåìåíòîâ: ',k)
     else
         writeln('Ñîñåäíèõ îäèíàêîâûõ ýëåìåíòîâ â ìàòðèöå íåò!');
     readln;
end.

program z;
uses crt;
const n=5; m=5;
var i,j,k,k1:byte;
a:array [1..n,1..m] of integer;
begin
     clrscr;
     writeln('Ñëó÷àéíàÿ ìàòðèöà');
     for i:=1 to n do
         begin
              for j:=1 to m do
                  begin
                       a[i,j]:=random(30)-15;
                       write(a[i,j],' ');
                  end;
              writeln;
         end;
     k:=0;
     for i:=1 to n-1 do
         for j:=1 to m do
             if abs(a[i,j])=abs(a[i+1,j])
                then
                    k:=k+1;
     for i:=1 to n do
         for j:=1 to m-1 do
             if abs(a[i,j])=abs(a[i,j+1])
                then
                    k:=k+1;
     if k>0
        then
            writeln('Êîë-âî ñîñåäíèõ îäèíàêîâûõ ýëåìåíòîâ: ',k)
     else
         writeln('Ñîñåäíèõ îäèíàêîâûõ ýëåìåíòîâ â ìàòðèöå íåò!');
     readln;
end.