Определить номера строк двумерного массива, которые равны между собой.

program massiv;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,l,k,m:integer;
begin
for i:=1 to n do
begin
 for j:=1 to n do
  begin
  a[i,j]:=random(2);
  write(a[i,j]:4);
  end;
  writeln;
end;
for i:=1 to n-1  do
 begin
  for l:=2 to n do
   begin
    k:=0;
    for j:=1 to n do
    if a[i,j]=a[l,j] then
                      begin
                       k:=k+1;
                       if k=n then
                               if (i<>l) and (i<l) then
writeln(i,'=',l);
end;
end;
 
end;
writeln;
end.

program massiv;
const n=5;
var a:array [1..n,1..n] of integer;
i,j,l,k:integer;
 
begin
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=random(2);
write(a[i,j]:4);
end;
writeln;
end;
 
for i:=1 to n do
begin
for l:=i+1 to n do
begin
k:=0;
for j:=1 to n do if a[i,j]=a[l,j] then k:=k+1;
if k=n then writeln('Между собой равны строки ',i,' и ',l);
end;
end;
 
for j:=1 to n do
begin
for l:=j+1 to n do
begin
k:=0;
for i:=1 to n do if a[i,j]=a[i,l] then k:=k+1;
if k=n then writeln('Между собой равны столбцы ',j,' и ',l);
end;
end;
 
readln;
end.