Mastermind mit Zahlen

[dreamsahin]

@Sunlight7 danke für dein Tip

da liegt ja auch mein problem
Habe mehrere Arrays versucht aber wie ich es in meiner Algo... einfüge weis ich net..

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
    Code: Array[1..5] of Integer;
    Geraten: Array[1..5] of Integer;
    vergleich: Array[1..5] of Integer;
    i,j,k,richtig,falsch: integer;
    name: String;

begin
       richtig:=0;
   for i:=1 to 5 do
   If  code[i] = geraten[i] Then inc(richtig);
       Label6.Caption:=IntToStr(richtig);                // richtige Zahl richtige Position
    if richtig=5 then
    begin
     Image1.Visible:=True;
      ListBox2.Items.Insert(ListBox2.Items.Count-0,' '+Edit6.Text+' '+' '+Label16.Caption+' '+' '+Counter.Text+'.'+Label18.Caption+' '+' '+Label17.Caption);      //Bewertung abgeben
       end;

       falsch:=0;                                   // Zähler zurück setzen
   for i:=1 To 5 Do                                  // zahlen vergleich
    If code[i]<>geraten[i] Then
   for j:= 1 to 5 do
   if geraten[i]=code[j] then inc(falsch);
    for k:= 1 to 5 do
   if geraten[k]=vergleich[k] then  
    Label7.Caption:=IntToStr(falsch);
       ListBox1.Items.Insert(Listbox1.Items.Count-1,' '+Edit1.Text+' '+Edit2.Text+' '+Edit3.Text+' '+Edit4.Text+' '+Edit5.Text+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+' '+Label6.Caption+' '+' '+' '+' '+' '+' '+' '+Label7.Caption);
    if count=10 then
   begin
        counter.Color:=clred;
     if Application.MessageBox('noch ein Versuch?','VERLOREN',36)= 7 then Close     //Nochmal versuchen
     else
        Edit6.Enabled:=True;
        Counter.Color:=clWhite;
        Count:=0;
        Label6.Caption:=IntToStr(richtig);
        Label7.Caption:=IntToStr(falsch);
      ListBox2.Items.Insert(ListBox2.Items.Count-0,' '+Edit6.Text+' '+' '+Label16.Caption+' '+' '+Counter.Text+'.'+Label18.Caption+' '+' '+Label17.Caption);
   end;
 end;
   end;

@Dax sorry Anfänger fehler....