Дан массив из 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;beginRandomize;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:12 44 36 9 1 13 10 11 37 3012 30 44 37 36 11 9 10 1 13