#Delphi Нужен комментарий к программе

[forumu]

Есть программа, написанная другим человеком, нужен комменттарий к каждому действию в это программе.
Здесь программа сортирует числа по возрастанию с применением метода бинарных вставок.

procedure TForm2.BinaryInsertionSort(var Arr : massiv; N : Integer; var q: integer);
var
    B,C,E,I,J,K,Tmp : integer;
begin
  I:=2;
  q:=0;
  while I<=N do
  begin
    inc(q);
    b := 1;
    inc(q);
    e := i-1;
    inc(q);
    c := (b+e) div 2;
    inc(q);
    while b<>c do
    begin
      inc(q);
      if Arr[c-1]>Arr[i-1] then
       e := c else
               b := c;
      inc(q);
      c := (b+e) div 2;
      inc(q);
    end;
    if Arr[b-1]<Arr[i-1] then
     if Arr[i-1]>Arr[e-1] then b := e+1 else b := e;
    inc(q);
    k := i;
    inc(q);
    Tmp := Arr[i-1];
    inc(q);
    while k>b do
    begin
      inc(q);
      Arr[k-1] := Arr[k-2];
      inc(q);
      dec(k);
      inc(q);
    end;
    Arr[b-1] := Tmp;
    inc(q);
    Inc(I);
    inc(q);
  end;
end;

Заранее спасибо.

[forumu]

Почему переместили, я выбрал самый подходящий раздел. Это никакого отношения к работе для программиста не имеет.

[merax]

Типа тебе должны были все кинутся за просто так помогать? А лицо не треснет. Запомни раз и навсегда. ТУТ ТЕБЕ НИКТО НИЧЕГО НЕ ДОЛЖЕН. И даже не пытайся оспаривать действия модератора. Себе дороже.

[Stilet]

Потому что : "нужен комменттарий к каждому действию"
Не много вато ли? Все это описано в книгах по паскалю причем элементарных, в методичках и прочей литературе.

[forumu]

могли бы хором не писать, итак понятно...