Of (зарезервированное слово)

 идентификатор = 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;