Вопрос помогите составить программу

[Vetal]

которая заполняет массив [1..8] целыми числами в диапазоне от 1 до 10 и выводит сумму элементов с нечётными числами.

 

[Armoshkaa]

s:=0; for i:=1 to 8 do begin a:=random(10)+1; write(a:3); if odd(a) then s:=s + a ; end;