primitives mau mau spiel

[track]

wie fang ich das denn ab?
so sollte das doch funktionieren oder nicht?

Delphi-Quellcode:

procedure KarteGeben(var KartenName : String;var KartenWert:byte);
begin
  if Stapel <>[]  then begin
  repeat
    KartenWert := randomrange(Low(TKarten),High(TKarten));
  until  KartenWert in Stapel;
  KartenName := cKartenName[KartenWert];
  Stapel := Stapel - [KartenWert];
  end;

end;