procedure ConsultarDato(Info : TipoDatos; var Encontrado : boolean; var Act, Ant : PunteroLista);
begin
Ant := Cab;
Act := Ant^.sig;
while not (Act^.Datos.Nombre = Info.Nombre) and (Act <> nil) do
begin
Ant := Act;
Act := Act^.sig;
end;
if (Act^.Datos.Nombre = Info.Nombre) then
Encontrado := true
else
Encontrado := false;
end;