Дихотомический поиск по близости

procedure Search (var T: Table; n: Integer);
var
  x, : Integer;
  o: integer;
  data: string;
  ng, vg, i, i1, i2: integer;
  fl: boolean;
begin
  Sort(T, n); // сортировка методом "пузырька"
  begin
  readln(x);
  // в x - искомое
  ng := 1; vg := n;
  i1 := 0; i2 := 0;
  fl := False;
  while (ng <= vg) and not(fl) do
  begin
    i := (ng + vg) div 2;
    if(x < t[i].GDP) then
      vg := i-1;
    if(x > t[i].GDP) then
      ng := i+1;
    if (x = t[i].GDP) then
      fl := True;
    Writeln;
    if not(fl) then
      PrintTabGr(T, n, ng, vg);
    Readln;
  end;
 
  if not(fl) then
  begin
    o := Abs(x - t[i].GDP);
    i1 := i; i2 := i;
    while (i1>1) and (Abs(x - t[i1-1].GDP) = o) do
      i1 := i1 - 1;
    while (i2<n) and (Abs(x - t[i2+1].GDP) = o) do
      i2 := i2+1;
    writeln;
    Writeln('Найдены следующие страны: ');
    for i := i1 to i2 do
      Writeln('|', T[i].name:10, '|':5 ,T[i].GDP:10, '|':5);
    end
    else
    begin
      Writeln('Точное совпадение: ');
      Writeln('|', T[i].name:10, '|':5 ,T[i].GDP:10, '|':5);
    end;
    Readln;
end;

 while (ng <= vg) and not(fl) do
  begin
    i := (ng + vg) div 2;
    if(x < t[i].GDP) then
      vg := i-1;
    if(x > t[i].GDP) then
      ng := i+1;
    if (x = t[i].GDP) then
      fl := True;
    Writeln;
    if not(fl) then
      PrintTabGr(T, n, ng, vg);
    Readln;
  end;

mn:=abs(x-t1);

if abs(x-t[i])<mn then