[alexusankov]

Да вообще принципиально всю.
Пока написано :

Код:

for x:=1 to (listbox1.Items.Count div 2) + (listbox1.Items.Count mod 2)  do begin
  i1:=strtoint(listbox1.Items[i]);  //  0 1 2 3 5 5
  i2:=strtoint(listbox1.items[i+1]);  // 1 2 3 4 5 7
  edit1.Text := inttostr((listbox1.Items.Count div 2) + (listbox1.Items.Count mod 2));
    if (i1 > 0) and (i2 < 0) then begin
      listbox2.Items.Add(inttostr(i1));
      listbox2.Items.add(inttostr(i2));
      i:=i+2;
    end;


end;

усе. код берет по 2 строки и проверяет что первая положительна, вторая нет.
Думаю..
з.ы. хрень какая то. чувствую не по 2 строки брать нужно....
****
Да, нужно брать по 1 переменной I:=i+1; иначе по 2 плюса или минуса не найти.
попробуем..