magazyn ads

with Piwa;

package Magazyn is
   -- Wyjmujemy piwo z magazynu
   function pobierz return Piwa.Piwo;
   -- Umieszczamy piwo w magazynie
   procedure dodaj(piwko : in Piwa.Piwo);
   -- Sprawdzamy ile sztuk piwa aktualnie zajduje sie w magazynie
   function sprawdzIloscSztuk return integer;

   -- Maksymalna ilosc sztuk piwa, ktora moze pomiescic magazyn
   pojemnosc : constant integer := 20;

   wyjatekMagazynu : exception;

private
   iloscSztuk : integer := 0;

   -- "Pojemnik" na piwa
   kontener : array (1 .. pojemnosc) of Piwa.Piwo;
end Magazyn;