U определена как u : integer;
Простите за навязчивость.

Ответил в предыдущей ветке. Предлагаю в ней и продолжать, а в эту ничего больше не писать и не создавать новых.