Односвязный список

type
  PNode = ^TNode;
  TNode = record
    Data: Integer;
    Next: PNode;
  end;
 
procedure lstInitRnd(var lst: PNode; n: Integer);
var p: ^PNode;
begin
  p:=@lst;
  for n:=n-1 downto 0 do begin
    New(p^); 
    with p^^ do begin
      Data:=-999+Random(1999); p:=@Next;
    end;
  end;
  p^:=nil;
end;

procedure lstInitRnd(var lst: PNode; n: Integer);
var p: PNode;
begin
  for n:=1 to n do begin
    New(p); 
    p^.Data:=-999+Random(1999);
    p^.Next:=lst;
    lst := p
  end;
end;

{$mode objfpc}
 
type
  PNode = ^TNode;
  TNode = record
    Data: Integer;
    Next: PNode;
  end;
 
procedure lstInitRnd(var lst: PNode; n: Integer);
var p: ^PNode;
begin
  p:=@lst;
  for n:=n-1 downto 0 do begin
    New(p^); 
    with p^^ do begin
      Data:=-999+Random(1999); p:=@Next;
    end;
  end;
  p^:=nil;
end;
 
procedure lstPrint(s:string; T:Pnode);
var tmp : PNode;
begin
  Write(s);
  if T=nil then WriteLn(' пуст.')
  else begin
    tmp := T;
    while tmp<>nil do begin
       Write(' ',tmp^.Data);
       tmp := tmp^.Next
    end; 
    WriteLn;
  end;
end;
 
const n = 10;
var T:PNode;
begin
  T := nil;
 
  lstInitRnd(T, n);
 
  lstPrint('Список после генерации:', T);
 
  ReadLn
end.