procedure Include(var S: Set; X: Ordinal)  

Включает во множество указанный элемент.

Параметры:

• S - множество.
• X - элемент.