Подсчитать разность положительных чисел (Delphi)

[De_Kurlzz]

Нужна помощь.
В программе как одно из действий требуется подсчитать разность положительных чисел, никак не пойму как это правильно реализовать, ведь по моему нужно, чтобы было так:
числа: -1 1 1 1 0
результат должен быть: -1 (т.к. 1-1-1)
однако получается: -3 (-1-1-1)
и я хз, как сделать, чтоб всё правильно считалось

procedure TForm2.Button6Click(Sender: TObject);
var
a,i,o,p:integer;
begin
o:=0;
p:=0;
a:= Form2.ListBox1.Count - 1;
for i:=0 to a do
if (strtoint(Form2.ListBox1.Items[i]) < 0) then
o:=o+1
else
if (strtoint(Form2.ListBox1.Items[i]) > 0) then
p:=p-strtoint(Form2.ListBox1.Items[i]);
label4.caption:=inttostr(o);
label5.caption:=inttostr(p);
end;

если нужен будет исходник, скажите

[mMAg]

Заведи переменную типа Boolean и присвой ей значение true. Она будет служить идентификатором начала выражения, составленного из положительных чисел. Как только найдётся первое значение >0, присвой ей значение false и p:=p+strtoint(Form2.ListBox1.Items[i]);
В обратном случае p:=p-strtoint(Form2.ListBox1.Items[i]);

Что-то типа такого получится:

var first : Boolean;

first := true;
for i:=0 to a do
if (strtoint(Form2.ListBox1.Items[i]) < 0) then
o:=o+1
else
if (strtoint(Form2.ListBox1.Items[i]) > 0) then
if first then
begin
p:=p+strtoint(Form2.ListBox1.Items[i]);
first := false
end
else
p:=p-strtoint(Form2.ListBox1.Items[i]);

[De_Kurlzz]

спасибо большое!