Дан массив Z(3,4).Поменять в массиве второй столбец с четвёртым и вывести исходный массив...

Const
   N = 3;
   M = 4;
Var
   Z:array[1..N,1..M] of integer;
   i,j,B:integer;
Begin
Randomize;
WriteLn('Исходный массив:');
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Begin
        Z[i,j]:=random(21)-10;
        Write(Z[i,j]:3,' ')
        End;
    WriteLn;
    End;
WriteLn;
WriteLn('Второй и четвёртый столбец переставлены:');
For i:= 1 to N do
    Begin
    B:=Z[i,2];
    Z[i,2]:=Z[i,4];
    Z[i,4]:=B;
    End;
For i:= 1 to N do
    Begin
    For j:= 1 to M do
        Write(Z[i,j]:3,' ');
    WriteLn;
    End;
End.

Пример:
Исходный массив:
-7   2 -2   3
9 -6 -6   1
-9 10 -9   3

Второй и четвёртый столбец переставлены:
-7   3 -2   2
9   1 -6 -6
-9   3 -9 10