Problem: Kniffel -> kl. Straße

void __fastcall TForm1::Button2Click(TObject *Sender)
{
     int wuerfel[6]; //die eigentlichen würfel
     int sort[6];    //ein zwischenergebnis
     int wuerfelr[6]; //refernenzen, zum sortieren
     int i=0,b=0;    //schleifenvaiablen

     Memo1->Lines->Clear();

     for(i=0;i<=6;i++)
     {
        wuerfelr[i]=1+i;     //referenzen werden reingeschrieben
     }
     for(i=0;i<=6;i++)
     {
         sort[i]=0;         //arrays werden auf null gesetzt
         wuerfel[i]=0;
     }

     wuerfel[0]=StrToFloat(Edit1->Text);//werte aus editfeldern einlesen
     wuerfel[1]=StrToFloat(Edit2->Text);
     wuerfel[2]=StrToFloat(Edit3->Text);
     wuerfel[3]=StrToFloat(Edit4->Text);
     wuerfel[4]=StrToFloat(Edit5->Text);

     for(i=0;i<=6;i++)
     {
        for(b=0;b<=5;b++)
        {
           if(wuerfel[b]==wuerfelr[i])
           {
              sort[i]=wuerfelr[i];    //sortiert und doppelte einträge werden
                                      //aussortiert
           }
        }
     }
     for(i=0;i!=6;i++)
     {
        Memo1->Lines->Add(sort[i]);  //testausgabe zum überprüfen des sortierens
     }
     for(i=0;i!=3;i++)
     {
        if(sort[i]*sort[i+1]*sort[i+2]*sort[i+3]!=0)   //eigentliche überprüfung
        {
            Memo1->Lines->Add("kleine Straße");
        }
     }

}