Получить и распечатать массивы чисел по правилу - PascalABC.NET

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

Получить и распечатать массивы чисел по закону:a[i]=sin(i)+cos(i) N=10. Сжать массив, выбросив из него каждый второй элемент (не используя дополнительный масси). Я написал но выдает ошибку, немогу понять почему.

program dg;
var
i:integer;
a:array[1..10] of real;
begin
for i:=1 to 10 do
begin
a[i]:=sin(i)+cos(i);
writeln ('[',i,']',a[i]);
end;
for i:=1 to 11 do
if i mod 2=0 then writeln ('[',i+1,']',a[i+1]);
end.

Решение задачи: «Получить и распечатать массивы чисел по правилу»

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

program dg;
uses crt;
var n,i,j:integer;
    a:array[1..10] of real;
begin
n:=10;
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=sin(i)+cos(i);
  write(a[i]:6:2);
 end;
writeln;
i:=2;
while(i<=n) do
 begin
  for j:=i to n-1 do
  a[j]:=a[j+1];
  n:=n-1;
  i:=i+1;
 end;
writeln('Удаление элементов с четными индексами');
for i:=1 to n do
write(a[i]:6:2);
end.

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

В данном коде выполняется следующие действия:

Создается программа с названием dg.
Используется библиотека CRT (для работы с консолью).
Объявляются три переменные типа integer: n, i, j.
Объявляется массив a типа real с размером 10.
Значение переменной n устанавливается равным 10.
Выводится сообщение Исходный массив.
Запускается цикл, который выполняет следующие действия:
- Значение элемента массива a[i] устанавливается равным сумме синуса и косинуса i.
- Выводится значение элемента массива a[i], отформатированное как 6 знаков после запятой.
Значение переменной i устанавливается равным 2.
Запускается цикл, который выполняет следующие действия:
- Значение элемента массива a[j] присваивается значению элемента массива a[j+1].
- Значение переменной n устанавливается равным n-1.
- Значение переменной i устанавливается равным i+1.
Выводится сообщение Удаление элементов с четными индексами.
Запускается цикл, который выполняет следующие действия:
- Выводится значение элемента массива a[i], отформатированное как 6 знаков после запятой.
Конец программы.