Interface

< интерфейсная часть>

Resourcestring // не обязательный

< строки ресурсов>

Implementation // не обязательный

< исполняемая часть>

Initialization // не обязательный

< инициирующая часть>

Finalization // не обязательный

< завершающая часть>

End. // окончание тела модуля

Заголовок модуля состоит из зарезервированного слова UNIT и следующего за ним имени модуля. Это имя должно совпадать с именем исходного текста. Имя модуля служит для его связи с другими модулями и основной программой. Эта связь устанавливается специальным предложением: Uses< список имен модулей через запятую>.

Интерфейсная часть содержит списки подключаемых модулей, объявления всех глобальных объектов модуля (типов, констант, переменных, подпрограмм), которые должны стать доступными для других модулей, обращающихся к данному модулю. Для глобальных подпрограмм указывается только их заголовок.

Строки ресурсов содержат описания строк ресурсов (п.1.3.1.2).

Исполняемая часть содержит списки подключаемых модулей, объявления локальных констант, переменных, типов, тексты подпрограмм, метки, если они используются в инициирующей части. Описанию подпрограммы, объявленной в интерфейсной части модуля, в исполняемой части должен предшествовать заголовок, в котором можно опускать список параметров (и тип результата для функции), так как они уже описаны в интерфейсной части.

Инициирующая часть содержит операторы, которые выполняются до передачи управления основной программе. Например, в них могут инициализироваться переменные, открываться файлы.

Завершающая часть содержит операторы, выполняемые один раз при любом нормальном или аварийном завершении программы. Эта часть запрещена, если отсутствует инициирующая часть.

Пример создания модуля Cmplx с процедурами сложения и вы­чи­тания комплексных чисел:

Unit Сmplx; //имя модуля

Interfac e //интерфейсная часть с объявлением типов и процедур

Type complex = record re, im: real; end; //объявления типа

Procedure ADDC (x, у: сomplex; var z: complex); //объявление процедуры

Procedure SUBC (x, у: сomplex; var z: complex); //объявление процедуры

Implementation //исполнимая часть с текстами процедур

Procedure ADDC; begin z.re: =x.re+y.re; z.im: = x.im+y.im; end; //процедура

Procedure SUBC; begin z.re: = x.re‑ y.re; z.im: =x.im‑ y.im; end; //процедура

End. //окончание модуля

Компилятор