Дан массив из N элементов (N- четное). Распечатать его в следующем порядке: a1,an,a2,a(n-1)...,a(n/2),a(n/2+1). Через Pascal ABC. Пожалуйста посчитайте пожалуйста.

const n=10;
var a:array[1..n] of integer;
i:integer;
begin
Randomize;
writeln('Массив A:');
for i:=1 to n do
 begin
 a[i]:=random(51);
 write(a[i]:4);
 end;
writeln;
for i:=1 to n div 2 do write(a[i]:4, a[n-i+1]:4);
writeln;
end.

Пример:
Массив A:
124436911310113730
123044373611910113