unit un_randoms;

interface
  procedure RandomSeqI(var a: array of integer);


implementation

  procedure RandomSeqI(var a: array of integer);
  var
    i, j, s: integer;
  begin
    for i:=0 to high(a) do a[i]:= i;
    for i:=0 to high(a) do begin
      j:= Random(length(a));
      s:= a[j];
      a[j]:= a[i];
      a[i]:= s;
    end;
  end;

end.
