Дан массив чисел МхМ. Определить, сколько в нем пар соседних одинаковых элементов. Элементы считаются соседними, если их индексы в столбцах и\или строках различаются не более, чем на единицу- Pascal(Паскаль)

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.