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

[Grief]

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

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

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

[Grief]

Ну вот я нашел в FAQ программку, но это все же немного не то, я имею ввиду про сортировку, откровенно признаюсь, проблемы с этим, выручайте..)
Меню я присобачить смогу, а вот с поиском тоже проблемы возникают

program Sort_Mas;
const n=8;						 { Размерность массива }
var
  i,j : byte;					 { Счетчики в циклах }
  imin: byte;					 { Индекс минимального элемента }
  k,c : integer;				  
  min : integer;				  { Минимальный элемент }
  a   : array [1..n] of integer;  
begin
  { Заполнение массива }
  for i:=1 to n do
  begin
	 write('a[',i,']=');
	 readln(a[i]);
  end;
  { Пузырьковая сортировка по возрастанию }
  for i:=2 to n do
	 for j:=n downto i do
	 begin
	  if a[j-1]>a[j] then
	  begin
		 c:=a[j-1];a[j-1]:=a[j];a[j]:=c;
	  end;
	 end;
  { Ставим максимальные элементы на нужные позиции }
  i:=1;k:=n;
  while k>(n div 2)+1 do
  begin
	 c:=a[i];
	 a[i]:=a[k];
	 a[k]:=c;
	 i:=i+2;
	 k:=k-1;
  end;
  { Ставим минимальные элементы на нужные позиции }   
  i:=2;k:=0;
  while k<(n div 2) do
  begin
	 min:=a[i-1];imin:=i-1;
	 for j:=i-1 to n do
	  if a[j]<min then begin min:=a[j];imin:=j;end;
	 c:=a[i];
	 a[i]:=a[imin];
	 a[imin]:=c;
	 i:=i+2;
	 k:=k+1;
  end;
  { Вывод отсортированного массива }
  for i:=1 to n do write(a[i],' ');
  readln;
end.