Помогите, пожалуйста…

var i,s,p: integer; a: array [1… 100] of integer; begin s: =0; p: =0; writeln ('Vvedite masiv a: '); for i: =1 to 10 do beginwrite ('a[',i,']='); readln (a[i]); end; for i: =1 to 10 do beginif a[i]>0 then s: =s+a[i]; end; s: =s*2; writeln ('Udvoennaya suma polozhitelnih elementov=',s); writeln ('Indexi elementov kotorie bolshe prediduschego: '); writeln; for i: =2 to 10 do beginif a[i]>a[i-1] then write (i,', '); end; for i: =2 to 10 do beginif (a[i]>=0) and (a[i-1]>=0) or (a[i]<0) and (a[i-1]<0) then p: =p+1; end; writeln; if p>0 then writeln ('Masiv imeet pari sosednih elementov s odnakovimi znakami') else writeln ('Masiv ne imeet pari sosednih elementov s odnakovimi znakami'); readln (s); end.