Mine

package body Immatriculation is


	procedure Insérer_Etudiant (Liste : in out T_Queue_Dynamique; Info : in T_Info) is
	
	Ptr_Nouveau : T_Lien := new T_Element'(Info, null);
	
	begin -- Insérer_Etudiant
	
		if Liste.Tete = null then
			Liste.Tete := Ptr_Nouveau;
		else
			Liste.Queue.Suivant := Ptr_Nouveau;
		end if;
		
		Liste.Queue := Ptr_Nouveau;
		
	end Insérer_Etudiant;


	procedure Effacer_Etudiant (Liste : in out T_Queue_Dynamique; Info : out T_Info) is

	Ptr_Courant : T_Lien := Liste.Tete;
	
	begin -- Effacer_Etudiant
	
		if Liste.Tete = null then
			raise Liste_Vide;
		end if;
		
		
		if Liste.Tete = null then
			Liste.Queue := null;
		end if;
		
		
		
		
		











	while Liste.Queue.Suivant /= null loop
		--Passer à l'élément suivant
		Ptr_Courant := Ptr_Courant.Suivant;