Lista circulara – creare

>Creare lista circulara pana la intalnirea lui 0.

type nod=^ref;
              ref=record
                        info:integer;
                        urm:nod;
              end;
var p,q,prim,ultim:nod;
    n:integer;
procedure creare;
var i:integer;
begin
     prim:=nil;
     ultim:=nil;
     write('valoarea=');readln(n);
     while n<>0 do
           begin
                new(p);
                p^.info:=n;
                if prim=nil then
                                begin
                                     p^.urm:=nil;
                                     prim:=p;
                                     ultim:=p;
                                end
                            else
                                begin
                                     p^.urm:=nil;
                                     ultim^.urm:=p;
                                     ultim:=p;
                                end;
                write('valoarea=');readln(n);
           end;
end;
procedure parc;
begin
     p:=prim;
     while p<>nil do
                    begin
                         write(p^.info:4);
                         p:=p^.urm;
                    end;
     write(prim^.info:4);
end;
BEGIN
     creare;
     writeln('lista este :');
     parc;
     readln;
END.
{PascalZone.uv.ro}