Выполнить сортировку массива, заполненного случайными числами, методом "пузырька"

var
  Form1: TForm1;
  k:integer;
implementation
 
{$R *.dfm}
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
k:=strtoint(SpinEdit1.Text);
StringGrid1.ColCount:=k;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
k:=strtoint(SpinEdit1.Text);
StringGrid1.ColCount:=k;
randomize;
StringGrid1.ColCount:=random(500);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
 
end;
 
end.

// Заполнение массива
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
setlength(a, stringgrid1.ColCount);
 
for i := 0 to high(a) do
a[i]:=random(500);
for i := 0 to high(a) do
stringgrid1.Cells[i,0]:=inttostr(a[i]);
end;
 
// Сортировка массива
procedure TForm1.Button2Click(Sender: TObject);
var i,k,j:integer;
begin
k:=0;
 
begin
  for I := 0 to spinedit1.Value - 2 do
    for j := 0 to spinedit1.Value - 2 do
      if a[j] > a[j+1] then
        begin
          k := a[j+1];
          a[j+1] := a[j];
          a[j] := k;
        end;
  end;
 
for i := 0 to high(a) do
stringgrid1.Cells[i,0]:=inttostr(a[i]);
end;
 
// установка размерности stringgrid
procedure TForm1.SpinEdit1Change(Sender: TObject);
begin
stringgrid1.ColCount:=spinedit1.Value;
end;

begin
  for I := 0 to spinedit1.Value - 2 do       //что за Value и почему -2
    for j := 0 to spinedit1.Value - 2 do
      if a[j] > a[j+1] then
        begin
          k := a[j+1];
          a[j+1] := a[j];
          a[j] := k;
        end;
  end;

Application.MainFormOnTaskbar := True;

// Application.MainFormOnTaskbar := True;