Боюсь, что не туда, но я не понял на 13-ой странице:

PROCEDURE {PUBLIC} Next( ): REAL;

Ну что за все с головы на ноги. Чем хуже

PUBLIC PROCEDURE Next( ): REAL;

я не понимаю, хоть убейте.