Type = Qualident | ARRAY OF Type | RECORD FieldList {";" FieldList} END | POINTER TO Type | PROCEDURE .
Тип = УточнІдент | ARRAY OF Тип | RECORD СписокПолів {";" СписокПолів} END | POINTER TO Тип | PROCEDURE .