## Код:
```
UNTIL (i = MaxIdLen);
IF i = MaxIdLen THEN err(240); DEC(i) END ;
```
Работать будет. Вот так:
## Код:
```
UNTIL (i = MaxIdLen);
err(240); DEC(i);
```
Кажется, Вам стоит чуток отложить переделку компилятора....