Удаление второго элемента массива - Turbo Pascal

9. Составьте программу удаления второго элемента массива. помогите пожалуйста

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

for i:=2 to n-1 do
a[i]:=a[i+1];
n:=n-1;

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

В цикле for i:=2 to n-1 do происходит перебор элементов массива a от индекса 2 до n-1 (не включая их).
1. В каждой итерации цикла значение переменной i увеличивается на 1, то есть i становится равным i+1.
2. Значение переменной n уменьшается на 1, то есть n становится равным n-1.
3. В результате перебора элементов массива a от индекса 2 до n-1 do все элементы с индексами от 2 до n-1 включаются в новую последовательность, а элемент с индексом 1 (первый элемент) копируется в конец новой последовательности.
4. Значение переменной n становится равным n-1, что означает, что цикл завершен.