Константы - множества

Значение типизированной константы-множества задается в виде правильного конструктора множества, например: 

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= [] ;

Константы - указатели

Единственным значением типизированной константы-указателя может быть только NIL, например:

const 

pr : Real= NIL;