Помогите, пожалуйста, написать программу на языке Паскаль. Преобразовать массив таким образом, чтобы в первой его половине располагались элементы, стоявшие в четных позициях, а во второй половине - элементы, стоящие на нечетных позициях.

const n=20;var a: array[1..n] of integer;    tmp,i,j,m: integer;begin{ заполнение массива и вывод на экран }  for i:=1 to n do  begin     a[i]:=Random(100);     write(a[i],' ');   end;  { преобразование массива}  m:= n div 2;  for i:=1 to m do  begin    tmp:=a[i];    a[i]:=a[2*i];    for j:=2*i-1 downto i+1 do a[j+1]:=a[j];     a[i+1]:=tmp;  end;  writeln;  writeln('преобразованный массив');{ вывод массива на экран }  for i:=1 to n do write(a[i],' ');end.