Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Задан массив целых чисел, найти сумму нечетных элементов, паскаль. Прога закрывается! Помогите! Написал программу. Ошибки не выдает. Программу запускаю выскакивает черное окно и программа закрывается.

program Arr1;

{Задан массив целых чисел, найти сумму нечетных элементов, паскаль}
var
i: integer;
a: array[1..10] of integer;
begin
WriteLn(‘Задан массив из 10 элементов, введите числа ‘, a[i]);
for i := 1 to 10 do
Readln(a[i]);
for i := 1 to 10 do
WriteLn(‘Число: ‘, a[i]);
ReadLn();
end.

Ошибка в строке:
WriteLn(‘Задан массив из 10 элементов, введите числа ‘, a[i]);
Надо убрать значение индекса массива a[i].

Код:

program Arr1;

{Задан массив целых чисел, найти сумму нечетных элементов, паскаль}
var
i: integer;
a: array[1..10] of integer;
begin
WriteLn(‘Задан массив из 10 элементов, введите числа ‘);
for i := 1 to 10 do
Readln(a[i]);
for i := 1 to 10 do
WriteLn(‘Число: ‘, a[i]);
ReadLn();
end.

Результат:

Массив целых чисел в Паскале.

Код, найти сумму нечетных элементов, паскаль:

program Arr1;

  {Задан массив целых чисел, найти сумму нечетных элементов, паскаль}
var
  i, SumNum: integer;
  a: array[1..10] of integer;

begin
  SumNum := 0;
  WriteLn('Задан массив из 10 элементов, введите числа');
  for i := 1 to 10 do
    Readln(a[i]);
  for i := 1 to 10 do
    if a[i] mod 2 <> 0 then
      SumNum := SumNum + a[i];

  WriteLn('Сумма нечетных элементов: ', SumNum);
  ReadLn();
end.

Результат:

Найти сумму нечетных элементов, паскаль.

Дополнительные материалы:
Найти сумму элементов массива паскаль (pascal).
Найти сумму элементов массива с четными индексами в паскале.
Сумма элементов (чисел) массива паскаль, random.
Сумма элементов массива, паскаль.
Read pascal для ввода в массив, пример.