Сотрировка"двоичного включения"

[lialia]

Здравствуйте! Помогите пожалуйста ,вот это у меня фрагмент кода,я не знаю как из него правильно сделать программу,заранее спасибо

For i:=2 to 10 do
  begin
    c:=a[i]; l:=1;r:=i;
    while l<r do
       begin
          m:=(l+r) div 2;
          if a[m]<=c then l:=m+1 else r:=m;
       end;
    for j:=i downto r+1 do
      a[j]:=a[j-1];
    a[r]:=c;
  end;

[s-andriano]

Хорошо, а Вы знаете, как вообще делается программа?