Вывести элементы с нечетными индексами в порядке возрастания индексов, потом - с четными в порядке убывания - PascalABC.NET

Формулировка задачи:

Дан массив A размера N. Вывести вначале его элементы с нечетными номерами в порядке возрастания номеров, а затем — элементы с четными номерами в порядке убывания номеров: A1,A3,A5…,A6,A4,A2. Условный оператор не использовать. Массив заполняется с клавиатуры.

Решение задачи: «Вывести элементы с нечетными индексами в порядке возрастания индексов, потом - с четными в порядке убывания»

Листинг программы

var  mas:array of integer;
     n,i:integer;
begin
read(n);
setlength(mas,n);
for i:=0 to n-1 do
  read(mas[i]);
writeln(mas);
i:=0;
while i<n do
  begin
    write(mas[i],' ');
    i:=i+2;
  end;
n:=n-n mod 2;
i:=n-1;
while i>0 do
  begin
    write(mas[i],' ');
    i:=i-2;
  end;
end.

Объяснение кода листинга программы

В начале кода объявляются переменные: — mas — массив целых чисел, — n — количество элементов в массиве, — i — индекс элемента в массиве.
Задается размер массива равный количеству элементов n.
С помощью цикла for происходит чтение элементов массива.
Выводится содержимое массива.
Индекс i инициализируется значением 0.
С помощью цикла while и i<n происходит вывод элементов массива с нечетными индексами в порядке возрастания.
Индекс i увеличивается на 2 после каждой итерации.
Размер n уменьшается на 2, если он четный.
Индекс i инициализируется значением n-1.
С помощью цикла while и i>0 происходит вывод элементов массива с четными индексами в порядке убывания.
Индекс i уменьшается на 2 после каждой итерации.