трассировачная таблица

[Nice Plant]

Необходимо сделать трассировачную таблицу для основных вычислений на двумерный массив

вот код программы:
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.

Вот рисунок массива
http://cs9729.vkontakte.ru/u27511808...x_a42523f1.jpg