Hilfe bei MasterMind Problem

[thaflo]

Hallo!

Ich bin verzweifelt:
Ich bin beim MasterMind Spiel und komme nicht mehr weiter.

ich habe zwei arrays mit farben:
spieler-array[]
spiel-array[]

nun muss ich den spieler-array mit dem array des spiels vergleichen und auswerten.
wieviele farben sind am richtigen ort,
welche vorhanden aber am falschen ort.

das ist ja einfach, aber im spieler-array können zwei gleiche farben vorkommen, und im spiel-array auch.
mein ansatz:

Delphi-Quellcode:

procedure TMainForm.btnTipClick(Sender: TObject);
var
   treffer, halbtreffer, iloop,loop:Integer;
begin
     treffer:=0;//farbe am richtigen ort
     halbtreffer:=0; //farbe vorhanden aber am falschen ort
     anz:=0
     for loop := 0 to level do begin
         if playerColors[loop] = gameColors[loop] then begin
            inc(treffer);
            Continue;
         end;
         for iloop:=0 to level do begin
             if (playerColors[loop] = gameColors[iloop]) then
                inc(halbtreffer);
         end;
     end;
     addTipLabels;
     if treffer = level+1 then
            ShowMessage('JUPPI, gewonnen! Mit '+#13+IntToStr(versuche)+' Versuchen!');
end;

kann mir jemand denkanstöße verpassen, wie ich das regeln könnte?

vielen dank,
Florian