Бинарный поиск (найти ошибку)

const
  Min = 1;
  Max = 20;
 
Type
  TArray = array[min..max] of integer;
 
var
  s:String;
  A:TArray;
  T:integer;
 
procedure input(var A:TArray; M:boolean);
var i: byte;
begin
  for i:=min to max do
  if m then a[i]:=i
  else a[max-i+1]:=i;
end;
 
procedure Output(A:TArray);
var i:byte;
begin
  for i:=min to max do
    write(a[i],' ');
  writeln;
end;
 
Function Up_Down(s:string):boolean;
begin
  if s = '1' then result:=true
  else result:=false;
end;
 
procedure Bin(A:TArray; X:Integer);
var i,L,R:byte;
begin
L := min; R := max;
repeat i := (L + R) Div 2;
if A[i] < X then L := i + 1;
if A[i] > X then R := i - 1;
until (A[i] = X) Or (L > R);
if A[i] = X
then WriteLn(i)
else WriteLn('0');
end;
 
begin
  writeln('1 - up');
  writeln('other - down');
  writeln('Enter the item`s number');
  readln(s);
  input(A, Up_Down(s));
  Output(A);
  writeln('Enter the number');
  readln(T);
  Bin(A,T);
  readln;
end.