Процедуры для работы со стандартными множествами

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