Паскаль, помогите!

В числовом массиве из 10 элементов, заданных случайным образом от - 100 до 500. Найти: 1) сумму положительных элементов, стоящих на чётных местах; 2) произведение элементов массива, кратных 3 и стоящих на нечётных местах;

uses crt;

var

a:array [1 ... 10] of integer;

s, p, i:integer;

begin

clrscr;

randomize;

for i:=1 to 10 do begin

a[i]:=random (601) - 100;

write (a[i],' ') ;

end;

s:=0;

p:=1;

writeln;

for i:=1 to 10 do begin

if (a[i]>0) and (odd (i) = false) then s:=s+a[i];

if (a[i] mod 3 = 0) and (odd (i) = true) then p:=p*a[i];

end;

writeln ('s = ', s) ;

writeln ('p = ', p) ;

readln;

end.