accept Wydaj(Zestaw: in Typ_Zestawow; Numer: out Integer) do
        if Mozna_Wydac(Zestaw) then
           Put_Line("Wydano zestaw " & Nazwa_Zestawu(Zestaw) & " nr " &
              Integer'Image(Numer_Zestawu(Zestaw)));
           for W in Typ_Wyrobow loop
          Magazyn(W) := Magazyn(W) - Sklad_Zestawu(Zestaw, W);
          W_Magazynie := W_Magazynie - Sklad_Zestawu(Zestaw, W);
           end loop;
           Numer := Numer_Zestawu(Zestaw);
           Numer_Zestawu(Zestaw) := Numer_Zestawu(Zestaw) + 1;
        else
           Put_Line("Brak części dla zestawu " & Nazwa_Zestawu(Zestaw));
           Numer := 0;
        end if;
     end Wydaj;