全国青少年信息学奥林匹克竞赛培训---冒泡排序

program sort;var   a:array[0..9] of integer     =(4,3,5,1,10,2,6,9,7,8);procedure Print(var _a:array of integer);var i:integer;begin    for i:=0 to 9 do    begin      write(_a[i]:5);    end;end;procedure BubbleSort(var _a:array of integer);var i,j,temp:integer;begin  Print(_a);  writeln;  for i:=0 to 8 do  begin    for j:=0 to 8-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;    Print(_a);    writeln;  end;end;begin   BubbleSort(a);   Print(a);   readln;end.