Перечислить множество всех треугольников, образованных указанными отрезками

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "sButton"
#pragma link "sListBox"
#pragma link "sLabel"
#pragma link "sMemo"
#pragma link "sEdit"
#pragma resource "*.dfm"
int i, k;
int x1[10], y1[10];
int x2[10], y2[10];
int x3[10], y3[10];
int x4[10], y4[10];
int v1, v2, v3, v4, z, j, q, w, r, y;
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm2::sButton1Click(TObject *Sender)
{
r=StrToInt(sEdit1 ->Text);
 
Form2 ->sListBox1 ->Canvas ->Pen ->Color=(TColor)RGB(0, 0, 0);
Form2 ->sListBox1 ->Canvas ->Pen ->Width=1;
 
for (i = 0; i <r; i++)
{
 
 
x1[i]=random(300); y1[i]=random(300);
Form2 ->sListBox1 ->Canvas ->TextOutW(x1[i], y1[i], IntToStr(i));
Form2 ->sListBox1 ->Canvas ->MoveTo(x1[i], y1[i]);
x2[i]=random(300); y2[i]=random(300);
Form2 ->sListBox1 ->Canvas ->LineTo(x2[i], y2[i]);
Form2 ->sMemo1 ->Text="";
}
}
//---------------------------------------------------------------------------
void __fastcall TForm2::sButton2Click(TObject *Sender)
{
w=0;
for (i = 0; i < r; i++)
   {
      z=0;
      y=0;
      for (k =0; k < r; k++)
         {
 
            if (k==i) k++;
            if(k>=r-1) break;
            v1= (x2[k]-x1[k])*(y1[i]-y1[k])-(y2[k]-y1[k])*(x1[i]-x1[k]);
            v2= (x2[k]-x1[k])*(y2[i]-y1[k])-(y2[k]-y1[k])*(x2[i]-x1[k]);
            v3= (x2[i]-x1[i])*(y1[k]-y1[i])-(y2[i]-y1[i])*(x1[k]-x1[i]);
            v4= (x2[i]-x1[i])*(y2[k]-y1[i])-(y2[i]-y1[i])*(x2[k]-x1[i]);
            if ((v1*v2<=0) && (v3*v4<=0))
               {
                  for (j=k; j<r; j++)
                     {
 
                        if (j==k) j++;
                        if(j>=r-1) break;
                        v1= (x2[k]-x1[j])*(y1[k]-y1[j])-(y2[j]-y1[j])*(x1[k]-x1[j]);
                        v2= (x2[j]-x1[j])*(y2[k]-y1[j])-(y2[j]-y1[j])*(x2[k]-x1[j]);
                        v3= (x2[k]-x1[k])*(y1[j]-y1[k])-(y2[k]-y1[k])*(x1[j]-x1[k]);
                        v4= (x2[k]-x1[k])*(y2[j]-y1[k])-(y2[k]-y1[k])*(x2[j]-x1[k]);
                        if ((v1*v2<=0) && (v3*v4<=0))
                           {
                              for (q = i; q < r; q++)
                                 {
                                    if (q==j)
                                       {q++;};
                                    if(q>i) break;
                                    v1= (x2[j]-x1[q])*(y1[j]-y1[q])-(y2[q]-y1[q])*(x1[j]-x1[q]);
                                    v2= (x2[q]-x1[q])*(y2[j]-y1[q])-(y2[q]-y1[q])*(x2[j]-x1[q]);
                                    v3= (x2[j]-x1[j])*(y1[q]-y1[j])-(y2[j]-y1[j])*(x1[q]-x1[j]);
                                    v4= (x2[j]-x1[j])*(y2[q]-y1[j])-(y2[j]-y1[j])*(x2[q]-x1[j]);
                                    if ((v1*v2<=0) && (v3*v4<=0))
                                       {
                                          if(i==q)
                                             z=1;
                                       }
                                    if(z==1)
                                       {
Form2 ->sMemo1 ->Text = Form2 ->sMemo1 ->Text + "\r\nПрямые " + IntToStr(i) + " и " + IntToStr(k) + " и " + IntToStr(j) + /*" и " + IntToStr(q) +*/ " образуют треугольник\r\n\r\n"; w=1;}
                           }
                     }
 
               }
         }
 
      }
      if(w!=1)
         Form2 ->sMemo1 ->Text = Form2 ->sMemo1 ->Text + "\r\n Треугольников нет \r\n\r\n";
   }