Найти сумму a2+a4+a6. Ошибка "illegal qualifier" - Free Pascal

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

Даны целые числа a1, a2, ..., a20. Найти сумму a2+a4+a6 ... . Оператор цикла с шагом, отличным от 1 и –1, не использовать. Написал следующий код:

                    Листинг программы
                
program _718;
var a, Sum, i: integer;
begin
Sum:=0;
For i:=1 to 10 do Sum:=Sum+a[i*2];
end.

Выдаёт ошибку "illegal qualifier". Что я делаю не так?

Решение задачи: «Найти сумму a2+a4+a6. Ошибка "illegal qualifier"»

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

program _718;
var
  a : array[1 .. 20] of integer;
  Sum, i: integer;
begin
  Sum:=0;
  For i:=1 to 20 do
  begin
    write('a[',i:2,'] = '); readln(a[i]);
  end;
  For i:=1 to 10 do Sum:=Sum+a[i*2];
  writeln('sum = ', sum);
end.

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

В этом коде используется язык программирования Free Pascal.

Создается массив a, который содержит 20 целых чисел.
Создаются две переменные: Sum и i.
Переменная Sum инициализируется значением 0.
В цикле от 1 до 20 происходит чтение значений элементов массива a с помощью функции readln().
В цикле от 1 до 10 происходит суммирование элементов массива a, начиная с индекса 1 (первый элемент) с шагом 2 (индекс 2, 4, 6 и т.д.).
Выводится значение переменной sum. Код выдает ошибку illegal qualifier, потому что в строке с объявлением переменной Sum вместо Sum написано _718, что является именем программы, а не переменной.