Динамические переменные Опции

[GrukhvinEV]

Нарисуйте пожалуйста схему работы этой прогрмаммы (для n=3), а то не пойму как это работает ((

Program Lab_5;
uses crt;
type
 pnode=^tnode;
 tnode=record
 next:pnode;
 value:integer;
end;
var
 first,node:pnode;
 n:word;
begin
 clrscr;
 randomize;
 write('Введите количество элементов динамического массива:');
 readln(n);
 while n>0 do
  begin
   if node=nil
    then
     begin
      new(node);
      first:=node;
      node^.next:=node;
     end
    else new(node^.next);
     node:=node^.next;
   node^.value:=random(1000)-500;
   writeln(node^.value);
   dec(n);
   end;