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

Удаляет из множества указанный элемент.

Параметры:

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