Массивы

[vanilla_bear]

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

Напечатать слова строки в таком порядке, чтобы последняя буква каждого слова совпадала с первой буквой следуещего слова, неподходящие слова исключить.

я первую прогу сделал, но меня послали её переделывать, т.к. нужно сделать её как можно проще

program massiv;
const n=5;
var aarray [1..n,1..n] of integer;
i,j,l,kinteger;
 
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.