Перестановку столбцов заменить на перестановку строк.

[Ruqeyye]

Помогите поменять код так, чтобы вместо столбцов поменялись местами строки. У меня что-то не получается. Буду очень благодарна за помощь(.

Вот как звучит задача:

Дана целочисленная матрица размера 6х9. Получить новую матрицу, получающуюся из данной перестановкой строк –
первой и последней, второй с предпоследней и т.д.;

const
  m = 6;
  n = 9;

var
  a: array[1..m, 1..n] of integer;
  i, j: byte;
  x: integer;

begin
  
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(20);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for j := 1 to n div 2 do
    for i := 1 to m do
    begin
      x := a[i, j];
      a[i, j] := a[i, n - j + 1];
      a[i, n - j + 1] := x
    end;
  writeln('Перестановка столбцов:');
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
  end;
end.

[Serge_Bliznykov]

так устроит?

const
  m = 6;
  n = 9;

var
  a: array[1..m, 1..n] of integer;
  i, j: byte;
  x: integer;

begin
  
  randomize;
  writeln('Исходная матрица:');
  for i := 1 to m do
  begin
    for j := 1 to n do
    begin
      a[i, j] := random(20);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  for i := 1 to m div 2 do
    for j := 1 to n do
    begin
      x := a[i, j];
      a[i, j] := a[m - i + 1,j];
      a[m - i + 1,j] := x
    end;
  writeln('После перестановки строк:');
  for i := 1 to m do
  begin
    for j := 1 to n do
      write(a[i, j]:4);
    WriteLn
  end;
  Readln
end.

[Ruqeyye]

Спасибо огромное!) Очень благодарна