помогите преобразовать одномерный массив

[kitty]

Дан одномерный массив А(10). Его нужно преобразовать так,чтобы в его первой половине располагались элементы, стоявшие в нечетных позициях, а во второй - элементы, стоявшие в четных позициях...нужно программу в pascal. использовать нужно операторы цикла for, if.

[Abbatik]

По памяти:

uses crt;
const n=5;
var a,b:array[1..n*2] of integer;
i,j:integer;
begin
clrscr;
for i:=1 to n*2 do begin
write('Введите ',i,' элемент...');
readln(a[i]);
if i mod 2=1 then b[i div 2]:=a[i] else b[(i div 2)+n]:=a[i];
end;
writeln('Начало:');
for i:=1 to n*2 do 
write(a[i]:4);
writeln('Результат:');
for i:=1 to n*2 do 
write(b[i]:4);
readkey;
end.