Нахождение точки пересечения двух отрезков [Паскаль]

[bnoazx005]

Делаю лабу здание следующее: из списка,состоящего из 10 отрезков, комбинаторным перебором определить точки пересечения отрезков между собой. Определить явное или неявное пересечение,если явное,то вывести в данной точке окружность радиусом 5,иначе радиусом 10. Реализовать через цепочку линейных преобразований :параллельный перенос и поворот. Кто-нибудь объясните как найти правильно эти точки и проверить тип их перечесения. Ниже привожу файл с кодом,который работает неправильно.