Подпрограммы для работы со стандартными множествами
procedure
Exclude(
var
s:
set
of
T; element: T);
Удаляет элемент element из множества s
procedure
Include(
var
s:
set
of
T; element: T);
Добавляет элемент element во множество s