Рекурсивной бинарный поиск

[Stranger333]

Немогу сделать рекурсию для бинарного поиска. У меня задан текстовый отсортированый массив, мне надо сделать функцию для бинарного поиска славо. Вот что то пробывал делать, помогите мне розобратся как ее сделать.

function BeeFind(s1:array of string; x1:string; a,b:integer):string;
//s1 - массив, x1 - искомое слова 
var c:integer;
begin
  c:=(a+b) div 2;
  if x=s1[c] then BeeFind:=x;
  if x<s1[c] then BeeFind:=BeeFind(s1,x,c,b) else BeeFind:=BeeFind(s1,x,a,c);
end;

[Z1000000]

Вот так как-то...

[akasex]

string[] array = { "a", "b", "c", "d", "e", "f" };
int index = Array.BinarySearch(array, "d");

[akasex]

function BinarySearch(words: array of string; word:string; l:integer; h:integer):integer;
 begin
    while (StrIComp(pchar(word),pchar(words[(l+h)div 2]))<>0)and(l<>h) do
      begin
         if strIcomp(pchar(word),pchar(words[(l+h)div 2]))>0 then
            l:=(l+h)div 2+1
          else
            h:=(l+h)div 2-1;
      end;
    if l<>h then
     BinarySearch:=(l+h)div 2
    else
     BinarySearch:=0;
 end;

[Stranger333]

спасибо всем большое за помощь