Процедура сортировки бинарными вставками, Помогите плиз!!! Опции

[Neon6868]

Я написал процедуру сортировки вставки! Помогите её переделать в процедуру сортировки бинарными вставками!!

Procedure sortirovka_vstavkami(a:mas);
  var
    i,x,y,j:integer;
  Begin
    for i:=2 to n do begin
      x:=a[i];
      a[0]:=x;
      j:=i;
        while x<a[j-1] do begin
          y:=y+1;
          a[j]:=a[j-1];
          j:=j-1;
        end;
      a[j]:=x;
    end;
    writeln('Sortirovka vstavkami');
    for i:=1 to n do write(a[i]:5);
    writeln;
    writeln('Chislo sravnenii:',y);
End;