Разработать алгоритм и программу поиска и сортировки элементов массива. Опции

[Grief]

Разработать алгоритм и программу поиска и сортировки элементов массива.
В программе необходимо использовать структуру меню и подпрограммы пользователей (Способ получения элементов массива, Алгоритма поиска, Алгоритм сортировки).

Способ получения элементов массива: Ввод с клавиатуры
Алгоритм поиска: Сравнение с выделенной ячейкой (min)
Алгоритм сортировки: Быстрая сортировка (по возрастанию)

Если есть у кого какие мысли, буду рад их почитать (:

[Krjuger]

М,а я вот понять не могу при чем тут пузырьковая сортировка,когда у вас по заданию быстрая.Это немного разные вещи.Более того быстрая сортировка имеет рекурсивную природу.Так же в ней можно выбрать разные способы разбиения.
В приводимом ниже алгоритме быстрой сортировки в качестве значения разбиения используется среднее значение. Хотя такой подход не всегда является наилучшим, он достаточно прост и сортировка будет выполняться правильно.

procedure QuickSort(var item: DataArray; count:integer);
       procedure qs(l, r: integer; var it: DataArray); 
        var         
        i, j: integer;
        x, y: DataItem;   
       begin   
         i:=l; j:=r;
         x:=it[(l+r) div 2];
         repeat
           while it[i]<x do i := i+1;
           while x<it[j] do j := j-1;
           if y<=j then
           begin
             y := it[i];
             it[i] := it[j];
             it[j] := y;
             i := i+1; j := j-1;
           end;
         until i>j;
         if l<j then qs(l, j, it);
         if l<r then qs(i, r, it)
       end;
     begin
       qs(1, count, item);
     end; { конец быстрой сортировки }

Я думаю разобраться не сложно.Внутренню процедуру можно и по другому назвать.