help me ??

[malak54]

program imprimer ;
type maillon= record
val:integer;
succ:^maillon;
end;
var l,p:^maillon;
begin
p:=l;
while p<>nil do
begin
writeln(p^.val);
p:=p^.succ;
end;
end.

salam
momik tas7i7 et mrc