ПОМОГИТЕ ПОЖАЛУЙСТА, СРОЧНО НАДО!

Положительные элементы вещественного массива разделить на сумму отрицательных элементов(массив брать до 10)

vara:array[1..10]of extended;i,otr,m,pol:integer; beginfor i:=1 to 10 dobeginread(a[i]);if a[i]<0 then otr:=a[i]+otr;if a[i]>0 then pol:=pol+1;end;m:=(pol/otr); write(m);end.