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

[Grief]

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

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

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

[Krjuger]

Да я дико извиняюсь,описался.
Так же я думаю могут возникнуть вопросы по поводу неких типов DataArray, DataItem.В общем вот полный код.

program tester;
type
 DataItem =char;
 DataArray = array [1..80] of DataItem;
var
 test1: DataArray;
 t, t2: integer;
 testfile: file of char;

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 i<=j then {не у а i }
        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;

begin
Assign(testfile, 'test.txt');
Reset(testfile);
t := 1;
{ считывание символов,которые будут сортироваться.}
while not Eof(testfile) do begin
read(testfile, test1[t]);
t := t+1;
end;
t := t-1; {скорректировать число считанных элементов }
QuickSort(test1,t);
{ выдать отсортированный массив символов }
for t2 := 1 to t do write(test1[t2]);
WriteLn;
Readln;
end.