> -- Александр Ильин писал(а):
> Было:Стало:
Что-то вы перемудрили при отказе от return. По-моему, все просто:
## Код:
```
PROCEDURE (pg: Page) Load* (): BOOLEAN;
BEGIN
   res:= true;
   IF pg.base.bmh = NIL THEN
     res:= pg.Load^ ();
     IF res & (pg.base.bmh = NIL) THEN
       AllocNew (pg);
     END; (* if *)
   END; (* if *)
   RETURN res;
END Load;
```
