Поменять местами K-ю строку и K-й столбец квадратной матрицы

[VoltZZZ]

нужна помощь, помогите пожалуйста:
Поменять местами K-ю строку и K-й столбец квадратной матрицы

[whatever]

  for i:=1 to n do
    begin
      tmp:=m[i,k];
      m[i,k]:=m[k,i];
      m[k,i]:=tmp;
    end;

[VIK_aka_TOR]

var 
i,j,n,k, buf : integer;
a: array [1..10,1..10] of integer;
begin
k := 2;
n := 4;
randomize;
 for i:=1 to n do
  begin
    for j:=1 to n do
      begin
        a[i,j] := random(30) + 1;
        write(a[i,j] : 3);
      end;
    writeln;  
  end;
for i:=1 to n do
  begin
    buf := a[i,k];
    a[i,k] := a[k,i];
    a[k,i] := buf;  
  end;
  writeln;
  writeln('Новая матрица'); 
  writeln;
for i:= 1 to n do
begin
  for j:= 1 to n do
    write(a[i,j]:3);
writeln;
end;
end.