Algoritmos y Programación en Pascal

19.2. Un ejemplo completo 437
auxBuscar:= auxBuscar^.sig
until parar;
if insertar then begin
auxInsertar:= auxBuscar^.sig;
New(auxBuscar^.sig);
auxBuscar^.sig^.info:= elem;
auxBuscar^.sig^.sig:= auxInsertar
end {if}
end; {AnnadirElemConj}
procedure QuitarElemConj (elem: tElem; var conj: tConj);
var
parar, {indica el fin de la búsqueda, en la lista}
quitar: boolean; {por si el elem no está en la lista}
auxBuscar, auxQuitar: tConj;
begin
auxBuscar:= conj;
parar:= False;
repeat
if auxBuscar^.sig = nil then begin
parar:= True;
quitar:= False
end {then}
else if auxBuscar^.sig^.info >= elem then begin
parar:= True;
quitar:= auxBuscar^.sig^.info = elem
end
else
auxBuscar:= auxBuscar^.sig
until parar;
if quitar then begin
auxQuitar:= auxBuscar^.sig^.sig;
Dispose(auxBuscar^.sig);
auxBuscar^.sig:= auxQuitar
end {if}
end; {QuitarElemConj}
function Pertenece (elem: tElem; conj: tConj): boolean;
var
parar, {indica el fin de la búsqueda, en la lista}
esta: boolean; {indica si elem ya está en la lista}
auxBuscar: tConj;
begin
auxBuscar:= conj^.sig;
parar:= False;
repeat