Найти число пар одинаковых соседних элементов в каждой строке/столбце матрицы

program mass1;
 
const
  n = 5;
 
var
  a: array[1..n, 1..n] of integer;
  i, j: integer;
  p: integer;
  sum: integer;
 
begin
  sum := 0;
  
  for i := 1 to n do
  begin
    for j := 1 to n do
    begin
      a[i, j] := Random(10); //Рандомно забиваем массив
      write(a[i, j], ' '); //Выводим его чтобы видеть правильность выполнения программы
    end;
    writeln();
  end;
  
  for i := 1 to n do //считаем для строк
  begin
    for j := 1 to n - 1 do
    begin
      p := a[i, j + 1];
      if p = a[i, j] then
      begin
        sum := sum + 1;
      end;
    end;
    writeln('Строка номер ', i, ' кол во одинаковых парных элем =', sum);
    sum := 0;
  end;
  for i := 1 to n do //считаем для столбцов
  begin
    for j := 1 to n - 1 do
    begin
      p := a[j + 1, i];
      if p = a[j, i] then
      begin
        sum := sum + 1;
      end;
    end;
    writeln('Столбец номер ', i, ' кол во одинаковых парных элем =', sum);
    sum := 0;
  end;
  
end.