Pascal/Turbo Pascal - Sacar nodo de lista

¿Está bien este procedimiento para sacar el nodo de una lista?

Procedure Suprime_Nodo_Lista(var lista:tipolista;var rinfo:tipoinfo);

var ptraux,ptrsig:tipolista;

begin

ptraux:=lista;

ptrsig:=ptraux^sgte;

lista:=ptrsig;

rinfo:=ptraux^.info;

dispose(ptraux)

end;

bue me gustaría saber si está bien o no, un saludo.

yo lo veo bien pero esta rebuscado hay un par de cosas que te puedo comentar
primero no saca cualquier nodo solo el primero por lo que recuerda mas bien una pila.
digo que está rebuscado porque lo que haces es "lees el nodo y luego liberas la memoria" esto lo puedes hacer con una sola variable aux ejm:

Procedure Suprime_Nodo_Lista(var lista:tipolista;var rinfo:tipoinfo);

var ptraux :tiplista;

begin
ptraux := lista;
lista := lista^.sgte;
rinfo := ptraux^.info;
dispose(ptraux)
end;

Pero esto es para pilas solamente o puede servir para una lista también????

en verdad tu wea es mala osea loki que ondi como pobre estar en un foro de pascal??? que onda lokito
en vrdd eres como el suil algun dia te dare el mail de ese loko para que converses sobre pascal adios pobre wn