Здравствуйте, swame, Вы писали:

S>

S>Создайте систему, которой сможет пользоваться дурак, и только дурак захочет ею пользоваться.

Вот в стандартном алгоритме со схемой Хоара есть фрагмент:

if i <= j then
begin
temp := arr[i];
arr[i] := arr[j];
arr[j] := temp;
Inc(i);
Dec(j);
end;

Как бы немного смущает, что если i=j, то алгоритм впустую произведёт обмен. Я попробовал заменить if i <= j then на if i < j then, ан нет — начались глюки. Такие подводные камни могут всё порушить в программе. Поэтому повторюсь что мой изначальный алгоритм, как мне кажется, во многих отношениях предпочтителен.