Найти номер элемента вектора, совпадающего с заданным целым X. Дихотомия.

procedure TForm1.Button1Click(Sender: TObject);
Var
  i,i_n,i_k : Integer;
  find : Boolean;
  x : Integer;
  s : String;
  A : Array of Integer;
begin
  //Получим значения вектора...
  s:=Edit1.Text+' ';
  SetLength(A,0);
  i:=1;
  While Length(s)<>0 Do
  If s[i]=' ' Then
  If i=1 Then Delete(s,1,1) Else
  Begin
    SetLength(A,Length(A)+1);
    A[High(A)]:=StrToInt(Copy(s,1,i-1));
    Delete(s,1,i);
    i:=1;
  End Else Inc(i);
 
  x:=StrToInt(Edit2.Text); //Значение для поиска...
 
  //Поиск искомого значения...
  i_n:=Low(A);
  i_k:=High(A);
  find:=False;
  While True Do
  Begin
    i:=(i_k+i_n) Div 2;
    If x=A[i] Then
    Begin
      find:=True;
      Break;
    End Else
    If i_k=i_n Then Break;
 
    If x>A[i] Then
    Begin
      If i_n<>i Then
      i_n:=i Else i_n:=i_n+1;
    End Else
    Begin
      If i_k<>i Then
      i_k:=i Else i_k:=i_k-1;
    End;
  End;
  If find Then
  ShowMessage('Индекс найденного элемента '+IntToStr(i)) Else
  ShowMessage('Элемент не найден!!');
end;