поиск ромбов по координатам

[fasty]

дано множество точек, найти среди них, которые образуют ромбы

algoritm();

int a,b,c,d,tm=0;    float ab,bc,cd,da,ac,bd,sr,s;
cout << "существуют ромбы с координатами: " << endl;
for(a=0;a<m;a++)
 for(b=a+1;b<m;b++)
  for(c=b+1;c<m;c++)
   for(d=c+1;d<m;d++)
   {
   ab=sqrt((A[a][0]-A[b][0])*(A[a][0]-A[b][0])+(A[a][1]-A[b][1])*(A[a][1]-A[b][1]));
   bc=sqrt((A[b][0]-A[c][0])*(A[b][0]-A[c][0])+(A[b][1]-A[c][1])*(A[b][1]-A[c][1]));
   cd=sqrt((A[d][0]-A[c][0])*(A[d][0]-A[c][0])+(A[d][1]-A[c][1])*(A[d][1]-A[c][1]));
   da=sqrt((A[a][0]-A[d][0])*(A[a][0]-A[d][0])+(A[a][1]-A[d][1])*(A[a][1]-A[d][1]));
      if ((ab==bc)&&(bc==cd)&&(cd==da))
      {cout << A[a][0]<< ";" << A[a][1] << endl << A[b][0]<< ";" << A[b][1] << endl << A[c][0]<< ";" << A[c][1] << endl << A[d][0]<< ";" << A[d][1] << endl << endl;}

при вводе координат по порядку (ну то есть последовательно вершин ромба) всё нормально, а если координаты перемешаны, ромб не находит, помогите, как переписать алгоритм?
допустим при координатах

-1 0
0 1
1 0
0 -1
0 0

всё нормально, выводит ромб

-1 0
0 1
1 0
0 -1

а при таком вводе

-1 0
0 -1
0 1
1 0
0 0

выводит что ромбов нет help