Решение в Паскале ABC!
"Дан массив A размера N. Вывести его элементы в следующем порядке:
A1, AN, A2, AN−1, A3, AN−2, … ."
Вот что я попытался решить, не могу ввод осуществить корректный.

Var b:array[1..10] of integer;
a:array[1..10] of integer;
k,s,n,i: integer;
Begin
Read(n);
For i:=1 to n do begin
Readln(b[i]);
If i mod 2=1 then begin
b[i]:= a[i-k];
k:=k+1;
end;
If i mod 2=0 then begin
b[i]:=a[n-s];
s:=s+1;
end;
Writeln(b[i]);
end;
end.