Программа в паскале нужна, 60 ! с клавиатуры вводится последовательность из n чисел, положительных и отрицательных. какая сумма чисел по модулю больше, положительных или отрицательных?

Var sp, sm, cur:real; var i, n:integer; begin readln(n); for i := 1 to n do begin read(cur); if cur > 0 then sp := sp + cur; if cur < 0 then sm := sm + cur; end; if sp = -sm then writeln('|+| = |-|'); if sp > -sm then writeln('|+| > |-|'); if sp < -sm then writeln('|+| < |-|'); end.

Var a:array[1..255] of integer;n,i,p,o:integer;
begin
read(n);
for i:=1 to n do
begin
read (a[i]);
if (a[i]>0) then p:=p+a[i] else o:=o+a[i];
end;
end.