Для заданной квадратной матрицы найти такие k, что k-я строка матрицы совпадает с k-м столбцом — Pascal(Паскаль)

uses crt;
const n=5;
var a: array[1..n,1..n] of integer; 
      i,j: byte; u: boolean;
begin
 u:=false;
 randomize;
 clrscr;
 writeln('исходный массив: ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     a[i,j]:=random(19)-9;
     write(a[i,j]:3);
    end; 
   writeln;
  end; 
 writeln;
 for i:=1 to n do
  for j:=1 to n do
   if (i=j) and (j=a[i,j]) then u:=true;
 if u=true then
  begin
   writeln('строка совпадает со столбцом и со значением элемента в следующих случаях: ');
   for i:=1 to n do
    for j:=1 to n do
     if (i=j) and (j=a[i,j]) then write(a[i,j]:3);
  end
 else writeln('элементов, удовлетворяющих условию в матрице нет');
end.