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

[kitty]

В одномерном массиве А(10) нужно преобразовать его так, чтобы в его первой пловине располагались элементы, стоящие в нечетных позициях, а во второй половине, стоящие в четных позициях. программа в паскале,с операторами перехода и цикла.

[Tayfun]

Сообщение от kitty

В одномерном массиве А(10) нужно преобразовать его так, чтобы в его первой пловине располагались элементы, стоящие в нечетных позициях, а во второй половине, стоящие в четных позициях. программа в паскале,с операторами перехода и цикла.

Низнаю куда здесь операторы перехода прилепить...
Вот код:

program massiv;
uses crt;
var
b,a:array[1..10] of integer;
t,i,j:integer;
begin
clrscr;
randomize;
for i:=1 to 10 do begin
a[i]:=random(100);
write(a[i],' ');
end;
writeln;
t:=0;
for i:=1 to 10 do
if i mod 2<>0 then begin t:=t+1; b[t]:=a[i]; end else b[5+t]:=a[i];
for i:=1 to 10 do write(b[i],' ');
readkey;
end.