Быстрый поиск в массиве, алгоритм быстрого поиска Опции

[Белоснежка]

Помогите с задачей. Искала в поисковиках, в книжках с алгоритмами но ничего не нашла
Нужно программку которая производит быстрый поиск (при помощи алгоритма быстрого поиска) заданной буквы в массиве из заданного количества элементов
Я уже все что можно перечитала нигде про алгоритм быстрого поиска ничего не нашла.
Ребятки может кто-то знает? Помогите а?

[volvo]

(это сортируемый массив) можно заменить на A: String (в нескольких местах). Тогда будет сортироваться строка.

Насколько я вижу, тут вообще нет речи о сортировке, следовательно никакая строка сортироваться не будет. К строке будет применяться алгоритм бинарного поиска - это да... Только надо бы подправить программу, иначе она не то что работать - она и компилироваться не будет...

program Poisk3a;
var
  A: string;
  midd, left, right:integer;
  X: char;
begin
  write('Введите упорядоченную строку: '); readln(A);
  Write('Что будем искать? '); readln(X);

  left:=1; right:=length(A);
  while (Right - Left) > 1 do begin
     midd := (right + left) div 2;
     if X <= A[midd] then right := midd else left := midd
  end;

  midd := -1;
  if X = A[ left ] then midd := left
  else
    if X = a[ right ] then midd := right;

  if midd <> -1 then
    write('символ с индексом ', midd ,' является: ', X)
  else write('искомый символ не найден');
end.