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