Дана квадратная матрица A(n,n). Выполнить следующие преобразования : поставить k - ю строку на место j - го столбца;

for m := 1 to n do
   begin
      A[m,j] := A[k,m];
   end;

uses crt;
var a:array[1..100,1..100] of integer; b:array[1..100]of integer;
i,j,m,k,l,n:integer;
begin
write('Введите размер матрицы: '); readln(k);
m:=k; n:=k;
writeln('Введите элементы матрицы:');
for i:=1 to n do
    for j:=1 to m do begin
    write('A[',i,',',j,'] = '); readln(a[i,j]); end;
    
clrscr;
Writeln('Исходная матрица:');
for i:=1 to n do begin
    for j:=1 to m do
    write(a[i,j]:3);
    writeln;
    end;
writeln;
write('Введите строку и столбец которые нужно поменять(MAX:',k,'): '); readln(k,l);
writeln('Полученая матрица:');
 
for i:=1 to n do begin
    B[i]:=A[k,i];
    end;
    
for i:=1 to n do begin
    A[i,l]:=B[i];
    end;
 
 
for i:=1 to n do begin
    for j:=1 to m do
        write(A[i,j]:3);
    writeln;
    end;
 
 
 
end.