Переставить в обратном порядке столбцы

[mimit]

Дан двумерный массив из 16 столбцов. Переставить в обратном порядке столбцы, расположенные между третьим и одиннадцатым (т. е. с четвертого по десятый).

var a:array[1..2,1..16] of integer;i,j,x:integer;

begin
  randomize;
  for i:=1 to 2 do
  for j:=1 to 16 do
  a[i,j]:=random(10);
  for i:=1 to 2 do
  begin
    writeln;
    for j:=1 to 16 do
    write(a[i,j]:3,' ');
  end;
  writeln;
  for i:=1 to 2 do
  for j:=4 to 5 do
  begin
    x:=a[i,j];
    a[i,j]:=a[i,16-j];
    a[i,16-j]:=x;
  end;
  for i:=1 to 2 do
  begin
    writeln;
    for j:=1 to 16 do
    write(a[i,j]:3,' ');
  end;
  readln;
  end.

проверьте пожалуйста что то не правильно написал

[Serge_Bliznykov]

так пойдёт?

  for i := 1 to 2 do
    for j := 4 to 6 do
    begin
      x := a[i, j];
      a[i, j] := a[i, 14 - j];
      a[i, 14 - j] := x;
    end;