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.