procedure Слить в одну точку (рекурсивно) каждую пару точек каждого контура, находящихся друг от друга на расстоянии меньше заданного
procedure MergeClosePoints (distance : double);