[TheVenom]

ок. начнем по новой...

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

Вот в чем проблема:

Код:

    for I := min1 to Length(byteArray) - 2 do
      byteArray[i] := byteArray[I + 1];
    SetLength(byteArray, Length(byteArray) - 1);

мы находим минимальный элемент, затем его удаляем. НО, после этого удаления программа не видит последний индекс массива. то есть мы с каждой итерацией удаляем из массива последний индекс, а когда доходим до первого, то программа зацикливается.

это если использовать "while".