упорядочить массив точек
procedure OrderArrayOfDoublePoints(FirstPointPtr: PDoublePoint; PointsCount: Integer);