[faiwer]

по-моему все в порядке.

Что же тут нормального Вот нормальный результат для 50лямов в Delphi:

WideSort = 515
QSort = 5491

Найти причину проблемы не смог =( Кроется она в строчке после else:

for( i = 0; i < h; ++i ) 
{
    var p = a[i]; 
    if( !b[ p ] ) 
        b[ p ] = 1; 
    else 
        ++b[ p ]; 
}