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

var
  I: Integer;
  X: Integer;
  IntArry: array[1..6] of Integer;
  BoolArry: array[1..49] of Boolean;
begin

  FillChar(BoolArry, SizeOf(BoolArry), 0);

  I := Low(IntArry);
  while I <= High(IntArry) do
  begin
    X := Random(49) + 1;
    if not BoolArry[X] then
    begin
      BoolArry[X] := True;
      IntArry[I] := X;
      Inc(I);
    end;
  end;

end;					

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

Const  
 Count = 49;  
Var  
 A : Array[0..Count-1] of Integer;  
 I, J, T : Integer;  
begin  
 for I := 0 to Count-1 do  
  A[I] := I+1;  
 for I := 0 to Count-1 do  
 begin  
  J := I+random(Count-I);  
  T := A[J];  
  A[J] := A[I];  
  A[I] := T;  
 end;
end;					

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

var i,j,r:integer;
    Zahlen:array [1..6] of Byte;
begin
 // Array mit Nullen füllen
 for i:=1 to 6 do Zahlen[i]:=0;

 for i:=1 to 6 do repeat
  // Zahl generieren
  r:=random(48)+1;
  // Array durchgehen, ob Zahl schon vorhanden
  for j:=1 to 6 do if Zahlen[j]=r then begin
   // Zahl vorhanden: Merken!!
   r:=0;
   break;
  end;
  // Wenn Zahl nicht vorhanden, setzen
  if r>0 then Zahlen[i]:=r;
  // ansonsten neue Zahl generieren (ab nach oben)
 until r<>0;
end;					

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

var 
  i,j,r: integer;
  Zahlen: array [1..6] of Byte; // [geändert] nur 6 Zahlen werden gesucht!
begin
  Randomize; // [hinzugefügt] Zufallzahlengenerator initialisieren
  for i := 1 to 6 do // [geändert] nur 6 Zahlen werden gesucht! 
  repeat   
    r := random(49)+1; // Zahl generieren [geändert] random erzeugt 0<=x<49!
    for j := 1 to 6 do if Zahlen[j]=r then // Array durchgehen, ob Zahl schon vorhanden [geändert] array geht nur bis 6
      begin
        r:=0; // Zahl vorhanden: Merken!!
        break;
      end;
    if r>0 then Zahlen[i]:=r; // Wenn Zahl nicht vorhanden, setzen
  until r<>0; // ansonsten neue Zahl generieren (ab nach oben)
end;