Бинарный поиск

uses crt;
const N=20;
var L,R,M:integer;
x:array[1..N]of char;
a:char;
 
begin
 clrscr;
 {...
 ввод массива
 ...}
 L:=1;
 R:=N+1;
 write('Символ -> ');
 readln(a);
 while R-L<>1 do
 begin
  M:=L+(R-L) div 2;
  if x[M]<=a then L:=M else R:=M;
 end;
 if R>L then writeln('X[',L,']=',a) else writeln('Такого символа нет');
 readln;
end.

uses crt;
const N=20;
var i, L,R,M:integer;
x:array[1..N]of char;
a:char;
begin
 clrscr;
for i:=1 to 20 do
readln (x[i]);
A:=X[1];
 L:=1;
 R:=N+1;
 write('Íóæíûé ñèìâîë -> ');
 readln(a);
  while R-L<>1 do
 begin
  M:=L+(R-L) div 2;
  if x[M]<=a then L:=M else R:=M;
 end;
 if R>L then writeln('X[',L,']=',a) else writeln('íè÷åãî íå íàéäåíî');
 readln;
end.

if (R>L) and (a=x[l]) then

uses crt;
const N=10;
var i, L,R,M:integer;
x:array[1..N]of char;
a:char;
begin
 for i:=1 to 10 do
 read(x[i]);
 readln;
 L:=1;
 R:=N+1;
 write('Нужный символ -> ');
 readln(a);
  while R-L<>1 do
 begin
  M:=L+(R-L) div 2;
  if x[M]<=a then L:=M else R:=M;
 end;
 if (R>L) and (a=x[l]) then writeln('X[',L,']=',a) else writeln('ничего не найдено');
 readln;
end.