Значение типизированной константы-множества задается в виде правильного конструктора множества, например:
type
Days = set of 1..31;
Digc = set of ' 0 ' . . ' 9 ';
Error = set of 1..24;
const
WorkDays : Days = [1..5, 8..12, 15..19, 22..26, 29, 30];
EvenDigits: Digc = ['0', '2', '4', '6', '8'];
ErrorFlag : Error= [];