Создать в динамической памяти односвязный список типа «стек» из случайных вещественных чисел (-500, 500)

Type
  tReal=^tt;
  tt = Record
         tR   : Real;
         Next : tReal;
       End;
Var
  m,k : tReal;
  i   : Byte;
  rr  : Real;
 
Procedure OutStack;
Begin
  k:=m;
  While k<>nil do
  Begin
    Writeln(k^.tR:6:2);
    k:=k^.next;
  End;
  Writeln;
End;
 
Begin
  Randomize;
  Writeln;
  m:=nil;
  For i:=1 to 10 do
  Begin
    New(k);
    k^.tR:=500-Random*1000;
    k^.next:=m;
    m:=k;
  End;
 
  OutStack;
  
  Write('Что добавить? : '); Readln(rr);
  New(k);
  k^.tR:=rr;
  k^.Next:=m;
  m:=k;
  
  OutStack;
 
  Readln;
  k:=m;
  While k<>nil do
  Begin
    m:=m^.next;
    Dispose(k);
    k:=m;
  End;
End.

type
  PNode=^TNode;
  TNode=record
    next: PNode;
    r: Real;
  end;
 
procedure push(var p: PNode; r: Real);
var
  t: PNode;
begin
  New(t); t^.r:=r;
  t^.next:=p; p:=t;
end;
 
function pop(var p: PNode): Real;
var
  t: PNode;
begin
  if p=nil then RunError(201);
  pop:=p^.r;
  t:=p; p:=p^.next;
  Dispose(t);
end;
 
procedure print(p: PNode);
begin
  while p<>nil do begin
    Write(p^.r:8:2);
    p:=p^.next;
  end; WriteLn;
end;
 
var
  stk: PNode;
  i, n: integer;
begin
  stk:=nil;
  Randomize;
  Write('Введите количество чисел: '); ReadLn(n);
  for i:=1 to n do push(stk, 500-Random*1000);
  print(stk);
  for i:=1 to n do pop(stk);
end.

type
  PNode=^TNode;
  TNode=record
    next: PNode;
    r: Real;
  end;
 
procedure push(var p: PNode; r: Real);
var
  t: PNode;
begin
  New(t); t^.r:=r;
  t^.next:=p; p:=t;
end;
 
function pop(var p: PNode): Real;
var
  t: PNode;
begin
  if p=nil then RunError(201);
  pop:=p^.r;
  t:=p; p:=p^.next;
  Dispose(t);
end;
 
var
  stk: PNode;
  i, n: integer;
begin
  stk:=nil;
  Randomize;
  Write('Введите количество чисел: '); ReadLn(n);
  for i:=1 to n do push(stk, 500-Random*1000);
  for i:=1 to n do Write(pop(stk):8:2); WriteLn;
end.