Put_Line("Zaczeto producenta wyrobu " & Nazwa_Wyrobu(Nr_Typu_Wyrobu));
      loop
     delay 3.0 ;--  symuluj produkcje
     Put_Line("Wyprodukowano wyrob " & Nazwa_Wyrobu(Nr_Typu_Wyrobu)
            & " numer "  & Integer'Image(Numer_Wyrobu));
         -- Wstaw do magazynu
         loop
            select
               B.Przyjmij(Nr_Typu_Wyrobu, Numer_Wyrobu, Przyjeto);
               if(Przyjeto = True) then
                  Numer_Wyrobu := Numer_Wyrobu + 1;
                  exit;
               else
                  Put_Line("Aktualnie nie ma miejsca na "
                           & Nazwa_Wyrobu(Nr_Typu_Wyrobu) & " numer "
                           & Integer'Image(Numer_Wyrobu) & " musi zaczekac.");
                  delay 5.0;
               end if;
            else
               Put_Line(Nazwa_Wyrobu(Nr_Typu_Wyrobu)
            & " numer "  & Integer'Image(Numer_Wyrobu) & " musi zaczekac.");
            end select;
         end loop;
      end loop;