Процедура для сортировки массива по возрастанию (прокоментируйте код программы на Delphi)

[Natashka Milashka]

Процедура для сортировки массива по возрастанию

procedure TForm1.SortVcl1;
var p,k,r,n:integer;
var i,incr,j:integer;
s:integer;
begin
Kol_PerVcl:=0;
Kol_SraVcl:=0;
k:= SpinEdit1.Value;
begin
incr:=k div 2;
while incr>0 do begin
for i:=incr+1 to k do begin 
j:=i-incr;
if arr[j] > arr[j+incr] then begin Kol_SraVcl:=Kol_SraVcl+1;
s:=arr[j];
arr[j]:=arr[j+incr];
arr[j+incr]:=s;
Kol_PerVcl:=Kol_PerVcl+1;
End else Kol_SraVcl:=Kol_SraVcl+1;
end; incr:=incr-1; end; end;
begin
End;
begin
for p:=1 to k do
begin
NDgrid.Cells[1,p]:=IntToStr(arr[p]);
edit2.Text := IntToStr(Kol_PerVcl);
edit3.Text := IntToStr(Kol_SraVcl);
end;
end;
end

[Человек_Борща]

это сорчеровка чего-то. а чего не ясно..

var p,k,r,n:integer;
var i,incr,j:integer;
s:integer;

после такого и я через 2 недели забуду что делает код с подобными переменными....