Поменять местами элементы массива Pascal

[olga_v95]

Поменять местами элементы массива
A1, A2, A3,...An
так, чтобы они располагались в таком порядке:
A1, An, A2, A(n-1), A3, A(n-2),...,A[(n+1)2/]
Использовать только 1 дополнительную переменную.
Заранее спасибо.

[interacia]

Здесь уже расписанный код

[Serge_Bliznykov]

interacia, Ваш код НЕ решает поставленную задачу.
Вы выводите элементы массива в заданном порядке, а в задании стоит ПОМЕНЯТЬ местами элементы массива.
Надеюсь, Вы понимаете, в чём разница?
Если не совсем, позволю себе пояснить на примере.
Пусть даны две переменные A и B.
Задача: Поменять местами значения переменных!
Ваше решение:

var A, B : integer;
begin
    ReadLn(A, B);
    WriteLn('A=',B);
    WriteLn('B=',A);
end.

На самом деле, от того, что Вы что-то вывели на экран, значения переменных НЕ ПОМЕНЯЛИСЬ местами!