Трегольник, стороны которого содержат максимальное... Опции

[art88]

Задача:
Среди треугольников с вершинами в заданном множестве точек на плоскости указать такой, стороны которого содержат максимальное число точек заданного множества (координаты тоек хранятся в файле).
-------------------------------------------------------------------------------------
Решение:
см. Triangle.pas
-------------------------------------------------------------------------------------
Проблема:
Не строится треугольник(проблемы в расчётах).
-------------------------------------------------------------------------------------
Просьба:
Помогите разобраться!!!
-------------------------------------------------------------------------------------

[volvo]

Ууууу... Ну, ты что-то перемудрил... Сейчас неохота лазить по дебрям кода, у тебя происходит выход за пределы массива (FPC очень хорошо ловит такие вещи)... Вот, глянь на картинку... Как ты думаешь, что произойдет?



Как результат (побочный эффект) - при запуске в TP вот в этом месте:

   OpenFile(inF);
   Combinate(10);

   { Перед входом в InputDots }
   InputDots(inF);

файл inF оказывается закрытым, и соответственно происходит ошибка...