В ошибке явная жалоба на строку
Usvob: REAL;

Зачем вы её объявляете внутри программы?
Если нужны дополнительные переменные, то объявите их в разделе var:
https://docs.owen.ru/product/owenclo...52#topic-88964