选择排序模版

for i:=1 to n-1 dofor j:=i+1 to n doif big(a[j],a[i]) then swap(a[i],a[j]);