Бинарный поиск (Паскаль)

[Zhanna5006]

Здраствуйте, помогите пожалуйста с задачкой:
Дан список абонентов телефонной станции и сумма их задолженности по оплате услуг телефонной станции. Упорядочить список по алфавиту. Составит процедуру бинарного поиска абонента с заданной фамилией.

[ОДИНОЧЕСТВО В СЕТИ]

к

Составить процедуру бинарного поиска абонента с заданной фамилией

 i := 1;  { индекс первого элемента массива }
  j := n;  { индекс последнего элемента массива (0, если массив пуст) }
 
  while i <= j do begin
    { ищем элемент на интервале индексов от i до j, включительно }
    k := i + (j - i) div 2;  { k = элемент посередине интервала }
    if x > A[k] then
      i := k + 1
    else if x < A[k] then
      j := k - 1
    else
      break;  { искомый элемент найден }
  end;
 
  { алгоритм выше останавливается в двух случаях:
    1) либо i > j и элемент не был найден,
    2) либо i <= k <= j и A[k] = искомый элемент. }

[Zhanna5006]

А полностью задачку можно? а не выписку из википедии

[ОДИНОЧЕСТВО В СЕТИ]

А полностью задачку можно?

А чего же нельзя то! С вас

список абонентов телефонной станции и сумма их задолженности по оплате услуг телефонной станции.

и 100 рублей и она ваша!
Прога готова вот результат работы