Динамические структуры, списки. Программа написана, но есть один недочет

program one;
uses crt;
type link=^cell;
 cell=record
 inf:integer;
 next:link;
 end;
var
p1,p,q,buf:link;
n,i:integer;
begin
clrscr;
 new(q);
 p:=q;
 readln(n);
 while n<>0 do
  begin
   p^.inf:=n;           {standartnoe formirovanie spiska vvodim alimenti do nulia}
   readln(n);           {esli vveli nol to spisok zakonchilsia (nol ne vkluchaetsia)}
    if n=0 then p^.next:=nil
    else
     begin
      new(p^.next);
      p:=p^.next;
     end;
  end;
{===== }
p:=q;     {p nachalo spiska(adres pervogo alimenta)}
p1:=nil;   {p1 vspomogatelnaya peremennaya}
 while p<>nil do     {idem ot nachala spiska do konca}
  begin
   buf:=p^.next;  {zapominaem adres sleduschego zvena }
   p^.next:=p1;   {perenaprovliaem sleduschee zveno na p1 (v perviy raz budet nil konec spiska)}
   p1:=p; {zapominaem v p1 adres tekuschego zvena chtob potom sleduschee napravit na nego}
   p:=buf;   {perehodim k sleduschemu zvenu  i tak do konca spiska}
  end;
p:=p1;  {v p1 ostalsia adres poslednego zvena teper ono pervoe}
 while p<>nil do
  begin
   writeln(p^.inf);       {vivodim spisok na monitor dlia proverki}
   p:=p^.next;
  end;
readln;
end.