Поправте программу

[shilven]

народ вот задание

1)Для заданной матрицы размером 8х8 найти такие k,что k-ая строка матрицы совпадает с k-ым столбцом (оформить в виде процедуры)

вот сама прога

program Project2;
uses crt;
const n=8;
type matrix=array[1..n,1..n] of integer;
var
i,j,k: integer;
a: array [1..n,1..n]of integer;
procedure trans(b:matrix);
var
i,j,k,p:integer;
a:matrix;
begin
p:=0;k:=0;
for i := 1 To n do
for j := 1 To n do a[i,j]:=b[j,i];
for i:=1 to n do
begin
for j:=1 to n do if (a[i,j]=a[j,i]) then inc(p);
if p=n then inc(k);
end;

end;
begin // òåëî ïðîãðàììû
clrscr;
for i:=1 to n do
for j:=1 to n do begin
a[i,j]:=random(8)-2;
end;
begin
for i:=1 to n do begin
for j:=1 to n do
write(a[i,j]:4);
writeln;
end;
end;
writeln;
writeln('kolichestvo k-ih strok matrici, kotorie sovpadaut s k-im stolbcom = ', k);
end.

сама проблема в том что все время выдает к=0 , т.е. ваще его не ищет

помогите плз , зарание спс!!!!!!