Of

Зарезервированное слово 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;