Дан двумерный массив А. Расставить его столбцы в следующем порядке-первый, последний, второй, предпоследний, третий.

uses crt;
const nmax=20;
type stb=array[1..nmax] of integer;{массив=столбец матрицы}
     mtr=array[1..nmax] of stb;{матрица=массив столбцов}
var a:mtr;
    m,n,i,j,k:byte;
    x:stb;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in [1..nmax];
repeat
write('Количество столбцов от 3 до ',nmax,' n=');
read(n);
until n in [3..nmax];
for j:=1 to n do{вводим матрицу по столбцам}
for i:=1 to m do
a[j][i]:=random(50);
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[j][i]:4);{выводим в обычном виде построчно}
  writeln;
 end;
writeln;
if odd(n) then k:=n div 2{количество обменов}
else k:=n div 2-1;
for i:=1 to k do
 begin
  x:=a[n];{запомнили последний столбец}
  for j:=n downto 2*i+1 do{сдваинули все что от места вставки}
  a[j]:=a[j-1];{на 1 вправо}
  a[2*i]:=x;{на свободное место вставили последний}
 end;
writeln('Перестановка столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[j][i]:4); {выводим результат построчно}
  writeln;
 end;
end.

Program GAI;
uses crt;
const nmax=20;
type stb=array[1..nmax]of integer;
     mtr=array[1..nmax]of stb;
var a:mtr;
m,n,i,j,k:byte;
x:stb;
begin
randomize;
repeat
write('Количество строк до',nmax,'m=');
read(m);
until m in[1..nmax];
repeat
write('Количество столбцов от 3 до',nmax,'n=');
read(n);
until n in [3..nmax];
for i:=1 to n do
for j:=1 to m do
a[j][i]:=random(50);
writeln('Исходная матрица');
for i:=1 to m do
begin
for j:=1 to n do
write(a[j][i]:4);
writeln;
end;
writeln;
If odd(n) then k:=n div 2
else k:=n div 2-1;
for i:=1 to k do
begin
x:=a[n];
for j:=n downto 2*i+1 do
a[j]:=a[j-1];
a[3*i]:=x; {Изменил эту строчку и получилось предпоследний с последним , прост поставил 3ку}
end;
writeln('Перестановка столбцов:');
for i:=1 to m do
begin
for j:=1 to n do
write(a[j][i]:4);
writeln;
end;
end.

Program GAI;
uses crt;
const nmax=20;
type stb=array[1..nmax]of integer;
     mtr=array[1..nmax]of stb;
var a:mtr;
    m,n,i,j,k:byte;
    x:stb;
begin
randomize;
repeat
write('Количество строк до ',nmax,' m=');
read(m);
until m in[1..nmax];
repeat
write('Количество столбцов кратное 4 до ',nmax,' n=');
read(n);
until (n mod 4=0)and(n<nmax);
writeln('Исходная матрица');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[j][i]:=random(50); //зачем 2 цикла, если можно в одном
    write(a[j][i]:4);
   end;
  writeln;
 end;
i:=1;//первая четверка n,n-1,2,1
while i<=n-3 do//пока есть четверки
 begin
  x:=a[n]; //запомним последний
  for j:=n downto i+1 do//сдвинем с 1 по предпоследний вправо
  a[j]:=a[j-1];
  a[i]:=x;  //последний вперед
  x:=a[n]; //опять запомним последний
  for j:=n downto i+2 do //сдвинем с 2 по предпоследний вправо
  a[j]:=a[j-1];
  a[i+1]:=x; //бывший предпоследний второй
  x:=a[i+3];
  a[i+3]:=a[i+2];//поменяем местами 1 и 2, они сейчас 3 и 4
  a[i+2]:=x;
  i:=i+4;//к следующей четверке0
 end;
writeln('Перестановка столбцов:');
for i:=1 to m do
 begin
  for j:=1 to n do
  write(a[j][i]:4);
  writeln;
 end;
end.