Изменить последовательность указателей так, чтобы отрицательные числа находились в начале списка

type
 pnode=^tnode;
 tnode=record
   next:pnode;
   value:integer;
 end;
var
 first,node,lastnegative,prev:pnode;
 n:word;
begin
 //randomize;
 write('Введите количество элементов динамического массива: ');
 readln(n);
 while n>0 do
 begin
   if node=nil then
   begin
     new(node);
     node^.next:=node;
     first:=node;
   end else new(node^.next);
   node:=node^.next;
   node^.value:=random(1000)-500;
   writeln(node^.value);
   dec(n);
 end;
 node^.next:=nil;
 writeln('Уберём отрицательные элементы массива в начало:');
 node:=first;
 lastnegative:=nil;
 prev:=nil;
 repeat
   if node^.value<0 then
   begin
     if first=node then lastnegative:=node else
     if lastnegative=nil then
     begin
       prev^.next:=node^.next; 
       node^.next:=first;  
       first:=node;   
       lastnegative:=node;
       node:=prev;
     end else
     if lastnegative^.next=node then lastnegative:=node else
     begin
       prev^.next:=node^.next; //??
       node^.next:=lastnegative^.next; //??
       lastnegative^.next:=node; //??
       lastnegative:=node; //??
       node:=prev; //??
     end;
   end else prev:=node;
   node:=node^.next;
 until node=nil;
 node:=first;
 repeat
   writeln(node^.value);
   node:=node^.next;
 until node=nil;
end.