Работа со списками

[NoviceYola]

Ситуация такая: список,состоящий из целых чисел я сформировал,а вот мне еще необходимо сделать следующее,где я и затрудняюсь...нужно
расположить в начале списка отрицательные элементы,а потом неотрицательные. Порядок отрицательных должен оставаться первоначальным,а неотрицательных должен быть обратным первоначальному порядку)

uses crt;
  type List=^node;
      node=record
      info:integer;
      next:list;
  end;
   var L:list;
       elem, i, n:integer;
       b: boolean;
 
   procedure form(elem:integer; var L:list);
    var N, P:list;
 begin
  New(N); N^.info:=elem; N^.next:=nil;
    if L=nil then L:=N else
      begin
      p:=L;
       while p^.next<>nil do p:=p^.next;
        p^.next:=N;
       end;
    end;
 
 procedure print(L:list);
   begin
   write('--> ');
    while L<>nil do begin
     write(L^.info,' ');
     L:=L^.next;
    end;
  writeln('<--');
  end;
 
 begin
  write('Кол-во элементов= '); readln(n);
    L:=nil;
    for i:=1 to n do
    form(-random(50),L);
    print(L);
end.

[AnryKZKZ]

Не совсем понятно - зачем использовать указатели. И потом - для сортировки отлично подходит "пузырьковый метод"...