Вот, таким штукам в блице учиться в самый раз, так держать
Придирки:
Мне кажется, что обновлять rezultX, rezultY .. rezultXX нужно в любом случае случилось пересечение или нет. Сбрасывать хотя бы в нули.
LineToRectangle очень здорово по несколько раз перезаписывает глобальные переменные.
Ну и мелочи:
1 re
zult правильне написать как re
sultX
2
PointToLine действительно необходим когда есть
CircleToLine?
3 В функциях
CircleToLine,
CircleToRectangle,
LineToRectangle нужно бы тоже указать
Local для внутренних переменных как и в остальных ф-циях для порядку.