Замена в массиве

[Ebon]

Дана матрица. Поменять местами i-тый столбец c j-той строкой матрицы.
Поменял местами, теперь как новую матрицу сделать?

Program abc;
const m=2;
var
a: array [1..m,1..m] of integer;
d, b, c, j, i :integer;
begin
for i:=1 to m do
for j:=1 to m do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for j:=1 to m do
b:=a[1,j];
for i:=1 to m do
begin
d:=a[1,j];
a[1,j]:=a[1,m];
a[1,m]:=a[1,j];
end;
writeln('a[',i,',',j,']=',a[i,j]);

[Hacker19_90]

понятия матрицы и массив в программировании в принципе одно***ственны

[Ebon]

Исправил теперь