Выдаёт :Ошибка времени выполнения: Индекс находился вне границ массива.Помогите пожалуйста
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.