Помогите найти ошибку

[Manchester]

Задача. Даны 2 множества точек на плоскости. Выбрать 4 различные точки первого множества так, чтобы квадрат с вершинами в этих точках накрывал все точки второго множества и имел мин.площадь.
Проблема в процедуре raschet(я запутался с циклами, проверяя точки на анличие квадрата(Паскаль всегда пишет: 'Sredi tochek pervogo mnogestva kvadratov ne sushestvuet.'))...

[SNUPY]

=\ эх товарищ... коменты любить надо ^_^
....
Товарищ где экспрессия, грация?

     function square(a1, b1, a2, b2, a3, b3, a4, b4:mas):boolean;  {yavlyaetsya li chetyrehugolnik kvadratom}
     var stor1, stor2, diag1, diag2:real;
     begin
     for i:=1 to n do begin
     stor1:=dl(a1[i], b1[i], a2[i], b2[i]);
     stor2:=dl(a1[i], b1[i], a4[i], b4[i]);
     diag1:=dl(a1[i], b1[i], a3[i], b3[i]);
     diag2:=dl(a2[i], b2[i], a4[i], b4[i]);
     if (stor1<>stor2) and (diag1<>diag2) then
     square:=false
     else
     begin
     square:=true;
     end;
     end;
     readln;
     end;

Я таки не в катил что вы хотели изобразить=\... Вообще ИМХО для красоты всех действий должна быть отдельная ф-ия TestSquare, которая будет тестировать 4 точки...

[Manchester]

Я проверяю является ли четырехугольник квадратом (равенство диагоналей и смежных сторон. Ну да, тупанул немного....

function square(a1, b1, a2, b2, a3, b3, a4, b4:mas):boolean; {yavlyaetsya li chetyrehugolnik kvadratom}
var stor1, stor2, diag1, diag2:real;
begin
for i:=1 to n do begin
stor1:=dl(a1[i], b1[i], a2[i], b2[i]);
stor2:=dl(a1[i], b1[i], a4[i], b4[i]);
diag1:=dl(a1[i], b1[i], a3[i], b3[i]);
diag2:=dl(a2[i], b2[i], a4[i], b4[i]);
if (stor1=stor2) and (diag1=diag2) then
square:=true
else
square:=false;
end;
readln;
end;

[Manchester]

Вот переделал... Но все равно не arbeiten. обидно.