Для заданной матрицы размером 8х8 найти такие r, что r-я строка матрицы совпадает с r-м столбцом

Program lol;
uses crt;
const n=8;
type mas=array[1..100,1..100] of integer;
var i,j:integer;
    y:mas;
 
procedure cozd(var a:mas);
begin
  for i:=1 to n do begin
    for j:=1 to n do
      a[i,j]:=random(30)-15;
  end;
end;
 
procedure vyvod(var a:mas);
begin
  for i:=1 to n do begin
    for j:=1 to n do
      write(a[i,j]:5);
    writeln;
  end;
end;
 
procedure pervoe_zadanie(var a:mas);
var r:integer;
begin
  for i:=1 to n do
    for j:=1 to n do begin
 
    end;
end;
 
begin
  randomize;
  writeln('Исходный массив: ');
  cozd(y);
  vyvod(y);
  pervoe_zadanie(y);
end.

if i=j then writeln(a[i,j])

Program lol;
uses crt;
const n=8;//для тестов лучше взять n меньше
type mas=array[1..n,1..n] of integer;
//вводить нужно с клавы, иначе никогда не будет одинаковых
procedure cozd(var a:mas);
var i,j:byte;
begin
writeln('Введите элементы матрицы, целые числа');
for i:=1 to n do
for j:=1 to n do
 begin
  write('a[',i,',',j,']=');
  read(a[i,j])
 end;
end;
 
procedure vyvod(var a:mas);
var i,j:byte;
begin
clrscr;
for i:=1 to n do
 begin
  for j:=1 to n do
  write(a[i,j]:5);
  writeln;
 end;
end;
 
procedure pervoe_zadanie(var a:mas);
var j,k,p,r:byte;
begin
writeln('Номера одинаковых строк и столбцов');
p:=0;
for r:=1 to n do
 begin
  j:=1;
  k:=0;
  while(j<=n)and(k=0) do
   begin
    if a[r,j]<>a[j,r] then k:=1
    else j:=j+1;
   end;
  if k=0 then
   begin
    writeln('r=',r);
    p:=1
   end;
 end;
if p=0 then write('Нет одинаковых строки и столбца с одним номером')
end;
 
var a:mas;
begin
cozd(a);
writeln('Исходный массив: ');
vyvod(a);
pervoe_zadanie(a);
end.