две процедуры, которые очень рекурсивные:
calc(type:byte) - генерирует вычисления заданного типа. если ошибка, то.
exec - генерирует код
PUSH - ЗАНОСИт в стэк текущий идентификатор!!! ;)
call - вызывает соответсвующую функцию 

getnextlex - получить следующую лексему.


type 
 0 - reserved
 1 - byte
 2 - word
 3 - integer
 4 - shortint
 5 - char
 6 - string
 7 - real 