lista jednokierunkowa - dodawanie elementów

Witam, mam mały problem z listami jednokierunkowymi. Chodzi mi o dodawanie nowych elementów (przydaje się jednak, jak się chce sprawdzić poprawność algorytmów ;) ). Błędów nie widzę, wywala mi błąd pod win runtime, pod pingwinem "Unicestwione". Kod:

program lista;
type
	pnode=^node;
	node = record
		v:integer;
		next:pnode;
	end;

var
a:integer;
q,p:pnode;

begin
read(a);
q:=nil;
while a<>0 do begin
	new(p);
	p^.next:=q;
	q:=p;
        p^.v:=a;
end;

p:=q;
while p<>nil do begin
	write('->', p^.v);
	p:=p^.next;
end;

readln;
end. 

Nie chce mi się sprawdzać ale z tym recordem można zrobić tak:

Nazwa.Next.Next.Next.Next.Next.Next.Next.Next.Next.['...nieskończenie wiele Next...'].Next.Next.V := 1;

O to Ci chodziło?