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

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.