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:

procedure Tform1.InitRQ;
var svc,svx,zahl:integer;
var bv:boolean;
begin

bv:=false;

for svc:=1 to totc do
  begin
  randomize;
  repeat
    begin
    bv:=false;
    Zahl:=Random(totc)+1;
    bv:=true;
      for svx:=1 to totc do
        begin
        if FZ[svx] = Zahl then
        bv:=false;
      end;
  end;
  until bv=true;
  FZ[svc]:=zahl;
  
end;
end;					

1:
2:
3:
4:
5:

      for svx:=1 to svc-1 do
        begin
        if FZ[svx] = Zahl then
        bv:=false;
      end;					

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

procedure Tform1.InitRQ;
  var
    i,j: Integer;
    tmp: TArrayElement;
begin
  for i := Low(FZ) to High(FZ) do begin
    j := i +Random(Length(FZ) -i +Low(FZ));
    tmp := FZ[j];
    FZ[j] := FZ[i];
    FZ[i] := tmp;
  end;
end;					

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:

type
TA=Array of Integer;


procedure ShuffleFisherYates(var aArray: TA);
  var
    i,j: Integer;
    tmp: integer;
begin
  for i := Low(aArray) to High(aArray) do
    begin
    j := i +Random(Length(aArray) -i +Low(aArray));
    tmp := aArray[j];
    aArray[j] := aArray[i];
    aArray[i] := tmp;
    end;
end;



procedure TForm1.Button1Click(Sender: TObject);

var
   a:TA;
   i:Integer;
begin
   SetLength(A,100000);
   for I := LOW(A) to High(A) do A[i] := i;
   ShuffleFisherYates(a);
end;