Алгоритм "перемешивания" массива в Delphi

[MusicMan]

Привет всем! Есть у меня тут такое дело. Столкнулся с проблемой :
Чё есть -
1)Дан динамический массив из целых чисел с количеством "n";

type 
  TArray = array of integer;
  PArray = ^TArray;     
...
var
  ArrayOfIndex : PArray;

2)В этом массиве должны храниться индексы, на что-либо
указывающие...
Я сделал "перемешивание" не используя дополнительных массивов
в целях экономии памяти(Пр : 1024 элементов по 4 байта и дублирующий массив, как вспомогательная переменная - многовато).

-алгоритм(функция)

function Suffle(AoI : PArray) : PArray;
 var 
  i,RIndex : integer;
  buffer : integer;
 begin
  if  AoI = nil then exit;
  randomize; 
   for i := 0 to Length(AoI^)-1 do
     begin
      repeat
       random(RIndex,Length(AoI^)-1)
      until RIndex <> i; 
      buffer := AoI^[i]; 
      AoI^[i] := AoI[RIndex];
      AoI^[RIndex] := buffer
     end;
 end;

Что нужно -
По возможности более оптимально написать код (оптимизировать).
Дело в том что этот алгоритм должен очень быстро выдавать результ.

ЗЫ : Писал и с константовыми массивами, но в итоге пришёл к
динамическим т.к. они более гибкие в использовании.

Впитаю любые идеи...

[МаксимNEWProgramm]

пргогнал твою прогу Вроде всё работает ,да и убрать особо нечего
попробуй с Константой.

[alexBlack]

Смотря что считать перемешиванием. Если меняем два элемента, это достаточное перемешивание ?

- Можно перемешивать сериями. Как мы тасуем колоду карт. Random'ом определяем начало серии, длину, с чем поменять и меняем сразу несколько элементов. После нескольких таких действий массив будет перемешан.

- Вариант оптимизации Вашего кода. Берем элемент temp := A[Random]. Выбираем случаный элемент. Помещаем его в предыдущий (который мы запомнили в temp), новый элемент теперь свободен. В него помещаем другой. После цикла в последнюю "дырку" помещаем temp.

[MusicMan]

Сообщение от МаксимNEWProgramm

пргогнал твою прогу Вроде всё работает ,да и убрать особо нечего
попробуй с Константой.

Дело в том что реально количество элементов будет постоянно
меняться в пределах от [0..1024] да может даже и больше.
Т.Е. константа это максимум, а это уже плохо(приходится "двигать" лимит... Двинешь в лево - мало ну т.д.). И в конце массива
будет постоянно оставаться "мусор", с которым придёться бороться.

Пробовал, не катит. Проблем, на самом деле, становиться только больше.

[MusicMan]

Сообщение от alexBlack

Смотря что считать перемешиванием. Если меняем два элемента, это достаточное перемешивание ?

А выходит вкусный винигрет

- Можно перемешивать сериями. Как мы тасуем колоду карт. Random'ом определяем начало серии, длину, с чем поменять и меняем сразу несколько элементов. После нескольких таких действий массив будет перемешан.

- Вариант оптимизации Вашего кода. Берем элемент temp := A[Random]. Выбираем случаный элемент. Помещаем его в предыдущий (который мы запомнили в temp), новый элемент теперь свободен. В него помещаем другой. После цикла в последнюю "дырку" помещаем temp.

Довольно интересная идея! Я учту! Спасибо большое! Вот