二分查找的上下界

如果数组中有多个元素是我们要找的元素v，我们要返回这个数出现位置的上下界，或者没找到该数要返回能插入此数的位置，这就是二分查找的上下界问题

var
  n,i,j,k,l,r,m:longint;
  a:array[1..10000] of longint;
function find_high(k:longint):longint;
  begin
    l:=1;r:=n;
    while l<=r do begin
      m:=(l+r) shr 1;
      if a[m]>k then r:=m-1 else l:=m+1;
    end;
    exit(l-1);
  end;
function find_low(k:longint):longint;
  begin
    l:=1;r:=n;
    while l<=r do begin
      m:=(l+r) shr 1;
      if a[m]>=k then r:=m-1 else l:=m+1;
    end;
    exit(r+1);
  end;
begin
  readln(n,k);
  for i:=1 to n do read(a[i]);
  writeln(find_high(k));
  writeln(find_low(k));
end.