Выполнить в Pascal

...

В массиве 3 на 6 поменять местами элементы второго и пятого столбца строки.

Var

i, j, x:integer;

a:array[1 ... 3,1 ... 6]of integer;

begin

writeln ('Исходный массив:');

for i:=1 to 3 do

begin

for j:=1 to 6 do

begin

a[i, j]:=random (20);

write (a[i, j]:4);

end;

writeln;

end;

writeln;

writeln ('Преобразованный массив:');

for i:=1 to 3 do

begin

x:=a[i, 2];

a[i, 2]:=a[i, 5];

a[i, 5]:=x;

end;

for i:=1 to 3 do

begin

for j:=1 to 6 do

write (a[i, j]:4);

writeln;

end;

end.