Дан массив целых чисел из 17 элементов. Определить частное от деления суммы положи?

На Паскале var a: array [1..5] of integer; i: integer; p, m: integer; begin for i:=1 to 5 do begin readln(a[i]); If a[i] < 0 then m:= m+a[i] else p:=p+a[i]; end; writeln(p/abs(m)); end.