"Миксировать" массив

[W0LF]

Здравствуйте, нужно размешать динамический массив.
Заполняю массив из 19 элементов числами 1..19.

const
  MaxValue = 19;
var
  I: integer;
  randomArray: array of integer;
begin
  SetLength(randomArray, MaxValue);
  for I := 0 to MaxValue do
    randomArray[I] := I + 1;
end;

Нужно зделать, что бы числа в массиве перемешались...

[Alex Cones]

For I := 0 To MaxValue-1 Do
 Begin
  J {INTEGER TYPE} := Random(MaxValue)
  PP {INTEGER TYPE} := randomArray[I];
  randomArray[I] := randomArray[J];
  randomArray[J] := PP;
 End;

Не забываем Randomize

В случае паранои смыть, повторить.

[W0LF]

Спс, работает...