pt := p; { <--- Чтобы не потерять указатель P, вдруг еще понадобится }
while pt <> nil do begin
  if pt^.data >= 0 then AddItem(first, pt^.data)
  else AddItem(second, pt^.data);

  pt := pt^.next
end;

uses crt;
type
  pnode = ^node;
  node = record
    data: integer;
    next: pnode;
  end;

{ 1. добавляем элемент в конец списка }
procedure Add(var p: pnode; k: integer);
var pp, new_p: pnode;
begin
  { работаем с копией указателя, чтоб не испортить }
  pp := p;
  { пробегаем по списку до тех пор, пока pp^.next ненулевое - т.о. ищем последний элемент }
  while (pp <> nil) and (pp^.next <> nil) do begin
    pp := pp^.next;
  end;

  { новый элемент и его заполнение }
  new(new_p);
  new_p^.next := nil;
  new_p^.data := k;

  {
    pp = nil может быть только, если p = nil. Тогда просто возвращаем новый элемент,
    иначе - добавляем (поле next последнего элемента теперь указывает на новый)
  }
  if pp = nil then p := new_p
  else pp^.next := new_p;
end;

{ 2. Инициализация исходного списка }
procedure Init(var p: pnode);
var
  i: integer;
begin
  {
    без всяких выкрутасов - просто добавляем 15 новых значений.
    Add сама разберется, какое первое, а какое- последующее
  }
  p := nil;
  for i := 1 to 15 do
    Add(p, integer(Random(30) - 10));
end;

{ 3. Печать списка - тут все просто }
Procedure Print(p: pnode);
begin
  while p <> nil do begin
    write(p^.data:4);
    p:=p^.next;
  end;
  writeln;
end;

var
   p, first, second: pnode;
   pp: pnode;
begin
  clrscr;
  randomize;
  Init(p);
  Print(p);

  {
    Ну, а это - собственно - решение задачи:
    раскидываем положительные и отрицательные по разным спискам
  }
  first := nil; second := nil;

  pp := p;
  while pp <> nil do begin
    if pp^.data >= 0 then Add(first, pp^.data)
    else Add(second, pp^.data);

    pp := pp^.next;
  end;
  Print(first);
  Print(second);

  readkey;
end.