Question

Program number10;

uses crt;
const n = 3;
var
a: array[1..n, 1..n] of integer;
i, j: integer;
x: integer;

begin
writeln('Исходная матрица');
for i := 1 to n do begin
for j := 1 to n do begin
a[i, j] := random(101);
write(a[i, j]:4);
end;
writeln;
end;
writeln('Транспонированная матрица');
for i := 1 to n do begin
for j := 1 to n do begin
swap(a[i, j], a[j, i]);
write(a[i, j]:3);
end;
writeln;
end;
end.

Нужно сделать так, чтобы столбцы с строкой менялись местами, первая строка делает всё как надо, а две другие так и остаются.