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

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.