Janilabo | TSARandomize() [SCAR Divi]

{==============================================================================]
  Explanation: Randomizes TSA.
[==============================================================================}
procedure TSARandomize(var TSA: TStrArray);
var
  l, i: Integer;
begin
  l := Length(TSA);
  for i := 0 to (l - 1) do
    Swap(TSA[Random(l)], TSA[Random(l)]);
end;

var
  tmp: TStrArray;
  h, i: Integer;

begin
  ClearDebug;
  tmp := ['Test0', 'Test1', 'Test2', 'Test3', 'Test4', 'Test5', 'Test6', 'Test7', 'Test8', 'Test9'];
  TSARandomize(tmp);
  h := High(tmp);
  for i := 0 to h do
    WriteLn(tmp[i]);
end.