Как в линейном однонаправленном списке вставить первый элемент списка после каждого отрицательного числа?

Вот так:

Cur := First;
while Cur Nil do begin

if Cur^.N < 0 then begin New(Tmp); Tmp^.N := First^.N; Tmp^.Next := Cur^.Next; Cur^.Next := Tmp; Cur := Tmp; end;

Cur := Cur^.Next;

end;