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

[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;

[Neon6868]

Почему заполнение от 1 до n? Хотя в программе ЯСНО сказано: от 0 до n-1... Для кого это написано по-твоему?

Добавлено через 1 мин.
Я ж тебе даже пример привел, нет, ты опять по-своему делаешь... Зачем спрашиваешь тогда???

Если я делаю от 0 до n-1 то тогда перестают работать 3 других метода!!!!!!