Найдите суммы положительных и отрицательных чисел из заданных n чисел.определите наибольшее из сумм по абсолютной величине

Program_z1;
var n,So,Sp,i:integer;
begin
read(n);
So:=0;
Sp:=0;
for i:=1 to n do begin
if i>0
then Sp:=Sp+i
else So:=So+i;
end;
if So>Sp
then write('So', So)
else write('Sp',Sp);
readln;readln;
end.