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:
30:
31:
32:
33:
34:
35:
36:
37:

//Karten mischen

for i := 1 to 32 do
  begin
  randomize;
  repeat
  Zahl[i] := Random(48)+11;

    //2 gleiche Karten vermeiden + verbotene Zahlen vermeiden

  doppelt:=false;
  for j :=1 to i-1 do
  begin
  if Zahl[i] = Zahl[j] then doppelt := true
  else if zahl[i] > 48 then doppelt := true
  else if zahl[i] =19 then doppelt := true
  else if zahl[i] =20 then doppelt := true
  else if zahl[i] =29 then doppelt := true
  else if zahl[i] =30 then doppelt := true
  else if zahl[i] =39 then doppelt := true
  else if zahl[i] =40 then doppelt := true
  else if zahl[j] > 48 then doppelt := true
  else if zahl[j] =19 then doppelt := true
  else if zahl[j] =20 then doppelt := true
  else if zahl[j] =29 then doppelt := true
  else if zahl[j] =30 then doppelt := true
  else if zahl[j] =39 then doppelt := true
  else if zahl[j] =40 then doppelt := true;



    //Wenn zwei Karten doppelt sind, wird die boolsche Variable auf true gesetzt.
  end;
  Until not doppelt;
  LBkarten.Items.Add(IntToStr(zahl[i]));
  // Solange wird gesucht, bis keine doppelten mehr vorkommen, also doppelt:=false!
  end;					

1:

 Zahl : Array[1..48] of Integer;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
  TFarbe = fHerz, fKaro, ...
  TWert = wSieben = 7, wAcht, ...
  TKarte = record
    Farbe : TFarbe;
    Wert : TWert;
  end;

...

var Karten : array[0..4 * 8 - 1] of TKarte;

for i := 0 to 3 do
  for j := 7 to 14 do
  begin
    Karte.Farbe := TFarbe(i);
    Karte.Wert := TWert(j);
    Karten[i * 8 + j] := Karte;
  end;