Зарезервированное слово Of используется при объявлении массивов, наборов, файлов и в операторе Case.
Синтаксис
идентификатор = Array [X..Y] Of тип
идентификатор = Set Of тип
идентификатор = File Of тип
Case выражение Of
Примеры (* Объявление массивов *) Type IntList = Array [1..100] Of Integer; CharData = Array ['A'..'Z'] Of Byte; Matrix = Array [0..9, 0..9] Of Real; (* Объявление наборов *) Type Day = (Sun, Mon, Tue, Wed, Thu, Fri, Sat); CharSet = Set Of Char; Digits = Set Of 0..9; Days = Set Of Day; (* Объявления файловых типов *) Type Person = Record FirstName : String[15]; LastName : String[25]; Address : String[35]; End; PersonFile = File Of Person; NumberFile = File Of Integer; SwapFile = File;(* Оператор варианта *) Case Ch Of 'A'..'Z', 'a'..'z': WriteLn('Буква'); '0'..'9' : WriteLn('Цифра'); '+', '-', '*', '/': WriteLn('Оператор'); Else WriteLn('Специальный символ'); End;