Ad esempio se inserisco in serie i seguenti valori, ecco l'output:

Inserire primo elemento della lista(0 per terminare): 234
Inserire un altro elemento nella lista(0 per terminare): 45
Inserire altro elemento nella lista(0 per terminare): 7
Inserire altro elemento nella lista(0 per terminare): 3
Inserire altro elemento nella lista(0 per terminare): 0

punt_lista--> 234---> NIL

Se invece:

Inserire primo elemento della lista(0 per terminare): 3
Inserire un altro elemento nella lista(0 per terminare): 7
Inserire altro elemento nella lista(0 per terminare): 4
Inserire altro elemento nella lista(0 per terminare): 2
Inserire altro elemento nella lista(0 per terminare): 1
Inserire altro elemento nella lista(0 per terminare): 0

punt_lista--> 3---> 4---> 7---> NIL



Il problema secondo me è in questo pezzo di codice:
//////////////////////////////////////////////////////////////////
writeln;
write('Inserire primo elemento della lista(0 per terminare): ');
readln(x);
//Creazione del primo elemento della lista:quello in testa
if x<>0 then begin
new(p);
p^.inf:=x;
p^.pun:=NIL;
write('Inserire un altro elemento nella lista(0 per terminare): ');
readln(x);
end;
////////////////////////////////////////////////////////////////////