Насколько я понимаю,
## Код:
```
PROCEDURE (d: Directory) New* (): Info
```
вообще излишня, потому что нужно только инициировать глобальные переменные. Значит, можно переместить код
## Код:
```
NEW(Inf);
      Inf.InitMessage;
```
сразу после установки директории SetDir в TestModelsHost.Init.