type T_En_Tete_Console is
record
But : Unbounded_String := Null_Unbounded_String;
Auteur : Unbounded_String := Null_Unbounded_String;
Remarque : Unbounded_String := Null_Unbounded_String;
Date : Unbounded_String := Null_Unbounded_String;
end record;
Cette structure représente les informations qui seront visible à
l'éxecution du programme de test.