Put_Line("Zaczeto konsumenta " & Nazwa_Konsumenta(Nr_Konsumenta));
      loop
     delay Duration(Losowa_Konsumpcja.Random(G)); --  symuluj konsumpcje
         Rodzaj_Zestawu := Losowy_Zestaw.Random(G2);
         Put_Line(Nazwa_Konsumenta(Nr_Konsumenta) & ": zamowil " &
                          Nazwa_Zestawu(Rodzaj_Zestawu));
         -- pobierz zestaw do konsumpcji
         loop
            select
               B.Wydaj(Rodzaj_Zestawu, Numer_Zestawu, Wydano);
               if(Wydano = True) then
                  Put_Line(Nazwa_Konsumenta(Nr_Konsumenta) & ": pobrano zestaw " &
                          Nazwa_Zestawu(Rodzaj_Zestawu) & " numer " &
                          Integer'Image(Numer_Zestawu));
                  exit;
               else
                  Put_Line(Nazwa_Konsumenta(Nr_Konsumenta)
                           & ": musi zaczekac na zestaw " &
                          Nazwa_Zestawu(Rodzaj_Zestawu) & " numer " &
                             Integer'Image(Numer_Zestawu));
                  delay 5.0;
               end if;
            or delay 5.0;
               Put_Line(Nazwa_Konsumenta(Nr_Konsumenta)
                        & " musi poczekac w kolejce.");
            end select;
         end loop;
      end loop;