Линейный однонаправленный список

type
  PNode = ^Node;
  Node = record
    data: real;
    next: PNode;
  end;
 
function NewNode(data: real; next: PNode): PNode;
begin
  New(Result);
  Result^.data := data;
  Result^.next := next;
end;
 
begin
  var p, head: PNode;
  var plus: real;
  
  p := NewNode(Random * 100 - 50, nil); //первый элемент списка
  head := p; //head всегда будет указывать на начало списка
  
  //Вставка элемента после текущего, на который указывает p
  for var i := 2 to 7 do 
  begin
    p^.next := NewNode(Random * 100 - 50, p^.next);
    p := p^.next;
  end;
  
//Вывод списка, на первый элемент которого указывает p.
  p := head;
  while p <> nil do
  begin
    write(p^.data:0:2, ' ');
    p := p^.next;
  end;
  writeln;
 
//Поиск положительного элемента
  p := head;
  while (p <> nil) and (p^.data <= 0) do p := p^.next;
  if p <> nil then plus := p^.data else plus := 0;
   
  if plus > 0 then //если положительный элемент существует, то
  begin
    p := head;
    while p <> nil do
    begin      
      if p^.data < 0 then 
        p^.next := NewNode(plus, p^.next); //вставка после отрицательного
      p := p^.next;
    end;
  end;
  
//Вывод списка, на первый элемент которого указывает p.
  p := head;
  while p <> nil do
  begin
    write(p^.data:0:2, ' ');
    p := p^.next;
  end;
  
end.