-- p_util_biblio.ads
package P_Util_Biblio is
   subtype String30 is string(1..30);
   subtype String100 is string(1..100);

   type TR_Biblio is
      record
         Auteur : String30;
         Annee : integer;
         Titre : String100;
      end record;

   Type TV_Biblio is array(integer range <>) of TR_Biblio;

   procedure LireVect(Vect_Biblio : out TV_Biblio);
   function Taille return natural;
   -- donne la taille du vecteur
end P_Util_Biblio;