Найти самый большой квадрат - просто алгоритм/Pascal/Java

[Евгений_Коротков]

Даны 2 массива, содержащие координаты точек (x,y соответственно, массивы одномерные). Нужно найти самый большой квадрат из этих координат.

Мое решение состоит в том, что я ищу треугольник (прямоугольный), а потом перебираю все другие точки, чтобы найти квадрат, НО

function pryam(x1,y1,x2,y2,x3,y3:integer):boolean;
begin
if (abs(dlina(x1,y1,x2,y2)-dlina(x3,y3,x2,y2))<0.1) and (abs(abs((y2-y1)*(y2-y3))+abs((x2-x1)*(x2-x3)))<0.1)

       then pryam:=true
       else pryam:=false;
end;

Во-первых, штука с скалярным произведением почему-то не работает, я думаю из-за того, что при таком условии важен порядок.

Во-вторых, куча времени, чтобы перебрать все точки.

for i:=1 to n do
       for j:=1 to n do
           for e:=1 to n do
                      begin
                           if (pryam(x[i],y[i],x[j],y[j],x[e],y[e])=true) and (i<>e) and (i<>j) and (e<>j) then
                           begin
                                k:=k+1;

Что делать вообще не знаю, если кто-то знает как решить эту задачу (понимает алгоритм), то можете написать словами, благо алгоритм я воспроизвести смогу.

Желательно Pascal, немножко хуже, но тоже хорошо - Java.

[BDA]

Имхо:
Сортируем точки по координате Х и по координате У по возрастанию (при одинаковом Х координата У возрастает).
Перебираем по порядку две точки из этого списка.
Поворачиваем получившийся отрезок на 90 градусов относительно центра.
Ищем бинарным поиском координату Х (левосторонним и правосторонним бинпоиском находим диапазон индексов, в котором нужно искать У), при одинаковом Х по У.
Если нашли обе точки повернутого отрезка, то посчитали площадь и запомнили координаты, если площадь получилась больше предыдущей запомненной.