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

[Кот12]

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

[newerow1989]

procedure TForm1.Button1Click(Sender: TObject);
var i,k,otr,pol:integer;
begin
   otr:=0;
   pol:=0;
   For i:=0 to Memo1.Lines.Count-1 do
   begin
      k:=StrToInt(Memo1.Lines[i]);
      If k<0 then
         otr:=otr+k else
         pol:=pol+k;
   end;
   If Abs(otr)>pol then
      Label1.Caption:='otr = '+IntToStr(Abs(otr)) else
   If Abs(otr)<pol then
      Label1.Caption:='pol = '+IntToStr(pol) else
      Label1.Caption:='otr = pol = '+IntToStr(pol);
end;

Сойдет?