А в чём тут сложность? Если каждый элементы [i][j] соответственно равен элементу [j][i]-то строка равна столбцу. Например:
Code
for i:=1 to n do
begin
test:=true;
for j:=1 to n do
if m[i][j]<>m[j][i] then
begin
test:=false;
break;
end;
if test then
WriteLn(i);
end;
Выведет на экран все такие k.
