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

type
  tList = ^pList;
  pList = record
    n : Integer;
    p, x : tList;
  end;
  
function CreateList : tList;
var
  First, Last : tList;
  i : Integer;
begin
  Randomize;
  New(First); First^.n := Random(21)-10; First^.p := nil;
  Last := First;
  for i := 2 to 10 do
    begin
      New(Last^.x); Last^.x^.p := Last; Last := Last^.x; Last^.n := Random(21)-10;
    end;
  Last^.x := nil;
  CreateList := First;
end;
 
procedure OutList(L : tList);
begin
  if L = nil then
    Write('Список пуст.')
  else
    while L <> nil do
      begin
        Write(L^.n:3); L := L^.x;
      end;
  WriteLn;
end;
 
procedure DeleteNeg(var L : tList);
var
  cur, tmp : tList;
begin
  while (L <> nil) and (L^.n < 0) do
    begin
      tmp := L; L := L^.x; L^.p := nil; Dispose(tmp);
    end;
  cur := L^.x;
  while cur <> nil do
    begin
      if cur^.n < 0 then
        begin
          tmp := cur; cur := cur^.p; cur^.x := tmp^.x;
          if tmp^.x <> nil then tmp^.x^.p := cur;
          Dispose(tmp);
        end;
      cur := cur^.x;
    end;
end;
 
var
  L : tList;
begin
  L := CreateList;
  OutList(L);
  DeleteNeg(L);
  OutList(L);
end.