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

var  
  // hoffe mal, dass das syntaktisch korrekt ist :|
  a: array[1..16] of Integer;
  k, i: Integer;
begin
  for i := 1 to 16 do
    a[i] := (i mod 8) + 1; // füllt das Array mit den Zahlen 1, 2, 3..8, 1, 2, 3..8
  Randomize;
  for k := 1 to 16 do    // Jeder Karte nacheinander eine bestimmte Zahl (1 - 8) zuweisen
  begin
    i := Random(Length(a));
    Karten[k] := a[i];   // Karten gibts jetzt hier nicht, du musst halt der Karte k den Wert a[i] zuweisen
    Move(a[i + 1], a[i], High(a) - i);
    SetLength(a, Length(a) - 1);
  end;
end;