简单程序

Question

一个排列数字的程序，只能排列2个，大家帮忙看看哪里错了，谢谢。我是个新手。
procedure TForm1.Button1Click(Sender: TObject);
var
  i,j,k:integer;
begin
  for i:=1 to 9 do
  begin
    for j:=9 to 10 do
      if a[i]>a[j] then
        begin
          k:=a[i];
          a[i]:=a[j];
          a[j]:=k;
        end;
      label4.Caption :=label4.Caption +' '+inttostr(a[i]);
  end;
  label4.Caption :=label4.Caption +' '+inttostr(a[10]);
end;procedure TForm1.FormActivate(Sender: TObject);
var
  i,temp:integer;
begin
  for i:=1 to 10 do
    begin
      randomize;
      temp:=random(100);
      a[i]:=temp;
      label3.Caption :=label3.Caption +' '+inttostr(temp);
    end;
end;end.

Answer 1

for I := 1 to 10 do
begin
 for j := 10 downto I do
 begin
   if a[j] > a[j-1] then
   begin
     temp := a[j];
     a[j] := a[j-1];
     a[j-1] := temp;
   end;
 end;
end;
从大到小排列，所谓的冒泡排序

Answer 2

for j:=9 to 10 
当然排列2个了

Answer 3

  for i:=1 to 9 do
  begin
    for j:=2 to 10 do