Дан массив. Вывести на экран сначала его элементы, стоящие на чётных местах, затем - на нечётных.

Кусок, который вывод:
for i=1 to n do
if i mod 2 = 0
then
write(a[i], ' ');
for i = 1 to n do
if i mod 2 = 1
then
write(a[i], ' ');

Очень прошу, можешь написать всю программу?