Création d'une liste

A partir de l'entrée au clavier d'une suite S d'entiers naturels , , ..., , (arrêt lors de l'entrée d'un nombre strictement négatif), la procédure EntreeListe (voir ci-dessous) crée la liste L où les éléments de S sont rangés dans l'ordre : , , ..., . Expliquer.

       procedure EntreeListe (var liste : ptr);
       var 
          p, dernier : ptr;
          n : integer;
       begin
          readln(n);
          if n < 0 then liste := nil
          else begin
               new(liste); liste^.info := n; liste^.suivant:=nil;
               dernier := liste; readln(n);
               while n>=0 do begin 
                     new(p); p^.info:=n; p^.suivant:=nil; 
                     dernier^.suivant := p;
                     dernier := p; readln(n);
               end;
          end;
       end;