1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

var  
  suchcode,eingabe:string[4];

suchcode:='6733'; //gesuchter Code
eingabe:='7623';  //der Code, der überprüft werden soll
fullcorrect:=0;   //Zählt die ganz richtigen Ziffern
wrongposition:=0; //Zählt Ziffern, die vorhanden aber an falscher Stelle
wrong:=0;         //Zählt ganz faslche Ziffern
for stelle:=1 to 4 do
  if suchcode[stelle]=eingabe[stelle] then inc(fullcorrect)
    else
  if pos(eingabe[stelle],suchcode)>0 then inc(wrongposition)
    else inc(wrong);					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:

var i,j : Integer;
    RichtigeZahlen : Integer;
    RichtigeZahlanFalscherStelle : Integer;
    FalscheZahlen : Integer;
    ZahlFalsch : Boolean;
begin
  RichtigeZahlen := 0;
  RichtigeZahlanfalscherStelle := 0;
  FalscheZahlen := 0;
  for i := 1 to 4 do
    begin
      ZahlFalsch := True;
      if StrToInt(Edit1.Text[i]) = StrToInt(Edit2.Text[i]) then
      begin
        inc(RichtigeZahlen);
        ZahlFalsch := False;
      end;
      for j := 1 to 4 do
        if StrToInt(Edit1.Text[i]) = StrToInt(Edit2.Text[j]) then
        begin
          inc(RichtigeZahlAnfalscherStelle);
          ZahlFalsch := False;
        end;
      if ZahlFalsch then inc(FalscheZahlen);
    end;
  Showmessage(IntToStr(RichtigeZahlen) + '-' +
              IntToStr(RichtigeZahlAnfalscherStelle) + '-' +
              IntToStr(FalscheZahlen));
end;