Сортировка...можно комментарии??

[Tanusha_221]

Сортировка Бэтчера...вот описание..Например, сначала выполнить (независимо) сортировку подмассивов элементов, стоящих на нечетных и четных местах соответственно, а затем объединить отсортированные последовательности. Разработайте усовершенствованный таким образом алгоритм обменной сортировки. Сам алгоритм у меня есть...только в некоторых местах он мне не понятен...например процедура procedure TForm1.Button1Click...И то, что под второй меткой...Можете помочь комментариями?

unit Sortirovka;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const n=16;
var
Form1: TForm1;
a: array[1..n] of integer;
p,q,r,d,t:integer;

implementation

{$R *.dfm}

function Log(x, b: Real): Real;
begin
Result:=ln(x)/ln(b);
end;

procedure TForm1.Button1Click(Sender: TObject);
label 1,2;
var i,buf:integer;
begin
If log(n,2)>trunc(log(n,2)) then t:=trunc(log(n,2))+1 else t:=trunc(log(n,2));
p:=trunc(exp(ln(2)*(t-1))); //p=2^(t-1)
randomize;
//Заполнение массива
For i:=1 to n do
begin
a[i]:=random(100);
memo1.text:=memo1.text+IntToStr(a[i])+' ';
end;
memo1.Lines.Add(#13#10);

1:
//Задание значений вспомогательных переменных
q:=8;
r:=0;
d:=p;

2:
//Цикл сравнения и обмена
for i:=0 to n-d-1 do
begin
if (A[i+1]>A[i+d+1]) then
begin
buf:=A[i+1];
A[i+1]:=A[i+d+1];
A[i+d+1]:=buf;
end;
end;

if(q<>p) then
begin
d:=q-p;
q:=q div 2;
r:=p;
goto 2;
end;

p:=p div 2;
If p>0 then goto 1;

//Вывод отсортированного массива
For i:=1 to n do
memo1.text:=memo1.text+IntToStr(a[i])+' ';
end;


end.

[sllh_111]

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Memo1: TMemo;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

const n=16;
var
Form1: TForm1;
a: array[1..n] of integer;
p,q,r,d,t:integer;

implementation

{$R *.dfm}

Вкрации процедура освобождение памяти, её распределение, и т.д.
А остальное вроде описано.