Вот в чем проблема:
Код:
for I := min1 to Length(byteArray) - 2 do
byteArray[i] := byteArray[I + 1];
SetLength(byteArray, Length(byteArray) - 1);
мы находим минимальный элемент, затем его удаляем. НО, после этого удаления программа не видит последний индекс массива. то есть мы с каждой итерацией удаляем из массива последний индекс, а когда доходим до первого, то программа зацикливается.