Пример:
Type chislo = Record
a,b,c: Integer
end;
Zvet = (Krasn, Gelt, Zelen, sin);
Tkan = (Sherst, Shelk, Hlopok);
Platye = Record
Dizain : Array [1..4] of Zvet;
Material : Tcan
end;
Const Nomer : chislo = (a:0, b:0, c:0);
Model:Platye=(dizain: (krasn, gelt, zelen, sin); Material: Hlopok);
Matrica: Array[1..3] of
chislo = ((a:1, b:4,c:5), (a:13,b:8,c:55), (a:200,b:16,c:-65));
Константы массива должны задаваться в той же последовательности, в какой они появляются в описании записи. В том случае, если блок данных содержит массивы типа файла или указателя, типизированными. Константы для этого типа записи задавать невозможно.
Если константа записи содержит варианты, то программист сам отвечает за то, чтобы специфицировались лишь блоки данных достоверной переменной.
Если переменная содержит массив метки, то нужно специфицировать и значение переменной.
Типизированная константа множества.
Она образуется из одной или нескольких спецификаций элементов, разделенных запятыми и заключенных в квадратные скобки.
Спецификацией элемента может быть константа или выражение идентификатора. Оно состоит из двух констант, разделенных двумя точками.
Пример:
Type Propisnoy = Set of ‘A’..’Z’;
Strochny = Set of ‘a’..’z’;
Const PropBukw : Propis =[‘A’..’Z’];
StrochnBukw : Stroch =[‘a’, ’e’, ‘l’, ‘c’, ‘u’];
Simvol : Set of char = [‘_’..’/’, ‘:’..’?’, ‘[‘..’^’, ‘{‘..’~’];
