Двоичный поиск

[Annushka1]

Нужно написать программу, используя алгоритм двоичного поиска...количество символов в 1 строке:3...
Данные:
 - задан массив символов, элементы которого должны быть введены с клавиатуры;
 - результатом работы программы поиска является либо строка 'элемент найден', либо 'элемент не найден';
- символ для поиска должен вводиться с клавиатуры;
 - результат программы сортировки - исходный и отсортированный массивы;
 - программа должна быть зациклена, прекращение работы программы - нажатие <ESC>;
- количество элементов в массиве не менее 10.

Дополнительный теоретический материал:
Алгоритм двоичного поиска. Этот алгоритм широко применяется в системных программах и известен в литературе также и под другими названиями: бинарный, логарифмический, половинного деления и др. Идея его заключается в том, что ключ поиска на каждом шаге сравнивается с элементом,
расположенным в середине таблицы или ее части.
Если ключ поиска меньше "серединного" элемента, то "нижняя" часть таблицы из последующего рассмотрения исключается, и дальше алгоритм будет работать с "верхней" частью. В противном случае - будет исключаться "верхняя" часть и работа будет выполняться с "нижней". Для точного задания
алгоритма необходимо ввести две переменные: NG - нижнюю границу поиска и VG -верхнюю границу поиска. Перед началом поиска им присваиваются следующие значения: NG=1, VG=N. Номер элемента, расположенного в середине, определяется по формуле:
J = (VG + NG) / 2
Если ключ поиска X меньше "серединного" элемента Tj, то изменяется верхняя граница VG=j. Если наоборот - то нижняя граница: NG=j.

[Mad_Cat]

uses crt;
var s:string;
	i,k,n:integer;
	c:char;
begin
	write('s:');
	readln(s);
	for i:=1 to Length(s)-1 do
	For k:= i+1 to Length(s) do
		if s[i]>s[k] then
			begin
				c:=s[i];
				s[i]:=s[k];
				s[k]:=c;
			end;
	write('символ :');
	readln(c);
	i:=1;n:=Length(s);
	k:= (n-i+1) div 2+i;
	while (n>i+1) and (s[k]<>c) do begin
		if s[k]>c then n:=k;
		if s[k]<c then i:=k;
		k:=((n-i+1) div 2) +i;
	end;
	writeln('отсортированная строка :',s);
	if s[k]=c then writeln('символ ',c,' найден #',k)
	else writeln('символ ',c,' не найден')
end.

[Annushka1]

спасибо большое))