Нахождение наименьших элементов

[PrincNochi]

В общем, это алгоритм Хаффмана.
Программа посимвольно считывает текст, переводит каждый символ в кодировку ASCII и записывает в массив [32..255]. Определяется вес символа (вероятность его появления). Т.к. массив сортировать нельзя я написал алгоритм сравнения

for i := Low(ch) to High(ch) do //пробегаем массив
if ch[i]<>0 then
begin
k:=k+1; //считает !=0 элементы
ver:=round(ch[i]/sm*10000)/100;
if ver<min0 then begin
min0:=ver;
pos:=i;
end;

Как реализовать нахождение второго по вероятности символа? Тот алгоритм, что писал я при равных вероятностях берет тот же элемент что и min0.