Удалить из связанного списка все отрицательные значения

type
  tList = ^rList;
  rList = record
    N : Real;
    Next : tList;
  end;
 
function NumGeneration : Real;
begin
  NumGeneration := (Random - 0.5) * 100;
end;
 
function CreateList : tList;
var
  List, Cur : tList;
  i : Integer;
begin
  Randomize;
  New(List);
  List^.N := NumGeneration;
  Cur := List;
  for i := 1 to 9 do
    begin
      New(Cur^.Next);
      Cur := Cur^.Next;
      Cur^.N := NumGeneration;
    end;
  Cur^.Next := nil;
  CreateList := List;
end;
 
procedure OutList(List : tList);
begin
  while List <> nil do
    begin
      Write(List^.N:0:5, #32);
      List := List^.Next;
    end;
  WriteLn;
end;
 
procedure DelNegative(var List : tList);
var
  Cur, Exc : tList;
begin
  Cur := List;
  repeat
    if Cur^.N < 0 then
      begin
        if Cur = List then
          begin
            List := List^.Next;
            Dispose(Cur); Cur := List;
          end
        else
          begin
            Exc := Cur;
            Cur := List; while Cur^.Next <> Exc do Cur := Cur^.Next;
            Cur^.Next := Exc^.Next; Dispose(Exc);
          end;
      end
    else
      Cur := Cur^.Next;
  until Cur = nil;
end;
  
var
  List : tList;
 
begin
  List := CreateList;
  OutList(List);
  DelNegative(List);
  OutList(List);
end.

procedure DelNegative(var List: tList);
var p: ^tList; t: tList;
begin
  p:=@List;
  while p^<>nil do
    if p^^.n<0 then begin
      t:=p^; p^:=p^^.next; Dispose(t);
    end else p:=@p^^.next;
end;

type
  PNode = ^TNode;
  TNode = record
    next: PNode; n: Integer;
  end;
var list: PNode;
begin
  New(list); 
end.

type
  tList = class
    N : Integer;
    Next : tList;
    
    constructor (valN : Integer; Nxt : tList);
    begin
      N := valN;
      Next := nil;
    end;
  end;
    
begin
  var List  := New tList(5, nil); // первый
  List.Next := New tList(6, List.Next); // за первым
  List.Next := nil; // потеря ссылки - не нужно освобождать
  List := nil; // забыли про список
end.