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