Дан массив целых чисел из 12 элементов, заполненный случайным образом числами из промежутка [-40;30]. Переставить элементы массива следующим образом (не используя вспомогательный массив): a[1], a[12], a[2], a[11], a[3], a[10],…,a[5], a[8], a[6], a[7] — Pascal(Паскаль)

uses crt;
var a:array[1..12] of integer;
      i,k,j:integer;
begin
 clrscr;
 for i:=1 to 12 do
  begin
   a[i]:=random(70)-40;
   write(a[i],' ');
  end;
writeln;
 
i:=1;
 
repeat
k:=a[12];
j:=11;
while j>=i+1 do
 begin
   a[j+1]:=a[j];
   j:=j-1;
 end;
 a[i+1]:=k;
 i:=i+2;
until(i>=12);
for i:=1 to 12 do
 write(a[i],' ');
 readln;
 
 
end.