Сравнить , что больше произведение отрицательных или сумма положительных

[Робин Гуд]

В последовательности чисел , введённых с клавиатуры в поле Memo , сравнить что больше : сумма положительных или произведение отрицательных чисел.

[Stilet]

Цикл прохода по числам может выглядеть так:

With TStringList.Create do begin
 DelimitedText:=StringReplace(Memo.Lines.Text,#13#10,' ',[rfReplaceAll]);
 for i:=0 to Count-1 do begin
   v:=FloatToStrDef(Strings[i]);
   if v<0 then p:=p*v else s:=s+v;
 end;
 free;
end;

Где P,S:Double - Произведение и сумма соответственно.
Идея ясна?