delphi 冒泡排序

  aa:array[1..6]of   integer=(3,10,6,8,98,22);  
   
  procedure   maopao();  
  var  
      i,j,k,temp:integer;  
  begin  
      for   i:=5   downto   1   do  
      begin  
          for   j:=1   to   i   do  
          begin  
              if   aa[j]>aa[j+1]   then  
              begin  
                  temp:=aa[j];  
                  aa[j]:=aa[j+1];  
                  aa[j+1]:=temp;  
              end;  
          end;  
      end;  
  end;