Из вещественных элементов списка L строит два новых - Turbo Pascal

type
  tList = ^tLink;
  tLink = record
    N : Real;
    X : tList;
  end;
  
var
  L, L1, L2, Cur, La1, La2, T : tList;
  i : Integer;
begin
  Randomize;
  L := nil;
  for i := 1 to 20 do
    begin
      New(Cur); Cur^.N := Random(19) - 9; Cur^.X := L; L := Cur;
    end;
    
  Write(' L = '); Cur := L; while Cur <> nil do begin Write(Cur^.N:3); Cur := Cur^.X; end; WriteLn;
  
  L1 := nil; La1 := nil;
  L2 := nil; La2 := nil;
  Cur := L;
  while Cur <> nil do
    begin
      T := Cur; Cur := Cur^.X; T^.X := nil;
      if T^.N < 0 then
        begin
          if L1 = nil then L1 := T else La1^.X := T;
          La1 := T;
        end
      else if T^.N > 0 then
        begin
          if L2 = nil then L2 := T else La2^.X := T;
          La2 := T;
        end
      else { T.N = 0 }
        Dispose(T);
    end;
      
  Write('L1 = '); Cur := L1; while Cur <> nil do begin Write(Cur^.N:3); Cur := Cur^.X; end; WriteLn;
  Write('L2 = '); Cur := L2; while Cur <> nil do begin Write(Cur^.N:3); Cur := Cur^.X; end; WriteLn;
end.