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

type
  tList = class
    n : Real;
    x : tList;
    
    constructor (n : Real);
    begin
      Self.n := n; x := nil;
    end;
    
    procedure Add(n : Real);
    begin
      var tmp := Self;
      while tmp.x <> nil do tmp := tmp.x;
      tmp.x := new tList(n);
    end;
    
    function Print : tList;
    begin
      var tmp := Self;
      while tmp <> nil do
        begin
          tmp.n.Print;
          tmp := tmp.x;
        end;
      Result := Self;
    end;
  end;
  
begin
  var L : tList := nil;
  Loop 20 do if L = nil then L := new tList(Random(-10.0,10)) else L.Add(Random(-10.0,10));
  L.Print; Println;
  Println;
  var Q : tList := nil;
  var t := L; while t <> nil do begin if t.n < 0 then if Q = nil then Q := new tList(t.n**2) else Q.Add(t.n**2); t := t.x; end;
  if Q = nil then 'Q - пуст'.Print else Q.Print; Println;
  L := nil;
  Q := nil;
end.