Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите...

Question

Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите пожалуйста
Program tro8;
Var a: array [1..8] of integer;
i,s:integer;
Begin
For i:=1 to 10 do
a[i]:=Random(10);
writeln('Исходный массив');
For i:=1 to 10 do
write (a[i], ' ' );
writeln;
s:=0;
For i:=1 to 10 do
if a[i] mod 2= 1 then
S:=s+a[i];
writeln('Сумма элементов массива =' ,s);
end.

Answer 1

For i:= 1 to 8 надо или
a: array [1..10] of integer;

Answer 2

Измените все числа 10 на 8