Упорядочивание массива заданным образом - PascalABC.NET

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

Доброе время суток. Помогите с сортировкой индексов в массиве . Вот задача Дан массив A размера N. Вывести его элементы в следующем порядке: A1, A2, AN, AN−1, A3, A4, AN−2, AN−3, … . Исходные данные 2.10 , 3.14 , 3,90 , 8.96. Пример верного решения 2.10 , 3.14 , 8.96 , 3,90. Вот мои попытки решить задачу

                    Листинг программы
                
 
                        
                          
                    
const
  n = 4;
var
  i: integer;
  c: array[1..n] of real;
 
begin
  
  for i := 1 to n do 
  begin 
    c[1] := 2.10;c[2] := 3.14;c[3] := 3.90;c[4] := 8.96;
    c[2] := c[n];
    c[3] := c[2];
    c[4] := c[n - 1];
    write('C[', i, '] =', C[i]  );
  end;
 
end.

Решение задачи: «Упорядочивание массива заданным образом»

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

const n=4;
      c:array[1..n] of real=(2.10,3.14,3.90,8.96);
var i:integer;
begin
writeln('Исходный массив');
for i := 1 to n do
write(c[i]:5:2);
writeln;
// Вывести его элементы в следующем порядке:
writeln('Вывод по условию');
i:=1;
while i<=n div 2 do
 begin
  write(c[i]:5:2);
  write(c[i+1]:5:2);
  write(c[n-i+1]:5:2);
  write(c[n-i]:5:2);
  i:=i+2;
 end;
end.

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

В начале кода объявляется константа n и массив c с четырьмя элементами, значения которых равны 2.10, 3.14, 3.90 и 8.96 соответственно.
Затем объявляется переменная i типа integer.
Далее выводится исходный массив с помощью цикла for, который проходит по каждому элементу массива c от 1 до n. Значение каждого элемента выводится с помощью функции write, а разрядка числа устанавливается в 5 знаков после запятой с помощью параметра :5:2.
После этого выводится массив в соответствии с условием, используя цикл while. Этот цикл проходит по каждому элементу массива c от 1 до половины его размера (n div 2).
Внутри цикла выводятся значения каждого элемента массива c с помощью функции write, а разрядка числа устанавливается в 5 знаков после запятой с помощью параметра :5:2.
После каждой итерации цикла значение переменной i увеличивается на 2.
В конце цикла значение переменной i увеличивается на 2, чтобы перейти к следующей итерации цикла.
В конце программы нет никаких дополнительных действий.