Set Procedury Szczytu