Паскаль, помогите! В числовом массиве из 10 элементов…

uses crt; vara: array [1… 10] of integer; s,p,i: integer; beginclrscr; randomize; for i: =1 to 10 do begina[i]: =random (601) -100; write (a[i],'); end; s: =0; p: =1; writeln; for i: =1 to 10 do beginif (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.