Люди, срочно нужен исходник побитовой сортировки на Паскале, в Интернете второй час сижу и не могу найти... Помогите как можно быстрее... Времени мало....
Заранее благодарен за помощь......

var:
mask : dword;

begin
mask := 1;
max := 0;
for i := 0 to n do begin
if (((mask shl j) and arr[j]) > ((mask shl j) and max)) then begin

что-то в этом роде

а немного поточнее и пошире?

Или хотябы ссылку на ресурс, где это точно есть этот исходник (во закрутил!)....

ресурс у меня в голове, а голова сейчас убегает на улицу
((mask shl j) and arr[j]) - это значение разряда j
дальше по старой схеме - если больше то ...
ты обычную то сортировку делал?

sources.ru и конференция там-же