Определить, сколько в матрице пар соседних одинаковых элементов

Program nG;
const
n=10;
var
i,k:integer;
a:array [1..10] of integer;
begin
Randomize;
For i:=1 to n do
begin
a[i]:=random(10);
write(a[i]:5);
end;
for i:=1 to 9 do
begin
If a[i]=a[i+1] then
inc(k);
 
end;
writeln('        Sovpadeniy     ',k);
end.

var
  a: array [1..m,1..n] of integer;
  i,j,s: word;
  ...
begin
  ...
  s:=0;
  for i:=1 to m-1 do
    for i:=1 to n-1 do begin
      Inc(s, 
        word(a[i,j]=a[i+1,j])+
        word(a[i,j]=a[i,j+1])+
        word(a[i,j]=a[i+1,j+1])+
        word(a[i+1,j]=a[i,j+1])
      );
  for i:=1 to m-1 do Inc(s, word(a[i,n]=a[i+1,n];
  for j:=1 to n-1 do Inc(s, word(a[j,m]=a[j+1,n];
  writeln(s);
  ...

Program nG;
const
    m=3; n=3;
var
    i,j,s:word;
    a:array [1..m,1..n] of integer;
begin
Randomize;
For i:=1 to m do
    begin
        for j:= 1 to n do
            begin
                a[i,j]:=random(6);
                write(a[i,j]:5);
            end;
        writeln;
    end;
 
  s:=0;
  for i:=1 to m-1 do
    for j:=1 to n-1 do begin
      Inc(s,
        word(a[i,j]=a[i+1,j])+
        word(a[i,j]=a[i,j+1])+
        word(a[i,j]=a[i+1,j+1])+
        word(a[i+1,j]=a[i,j+1])
      );
end;
  for i:=1 to m-1 do Inc(s, word(a[i,n]=a[i+1,n]));
  for j:=1 to n-1 do Inc(s, word(a[m,j]=a[m,j+1]));
  writeln(s);
 readln;
 end.

For i:=1 to m do

 Inc(s,
        integer(a[i,j]=a[i+1,j])+