算法 3.1
void SelectPass( SqList &L, int i ) {
  // 已知L.r[1..i-1]中記錄按關鍵字非遞減有序，本算法實現第i趟選擇排序，
  // 即在L.r[i..n]的記錄中選出關鍵字最小的記錄L.r[j]和L.r[i]交換
  RcdType  W；
  j = i；               // j 指示關鍵字最小記錄的位置，初值設為i
  for ( k=i+1; k<=L.length; k++ ) 
    if ( L.r[k].key < L.r[j].key )  j = k ；   // 暫不進行記錄交換，只記錄位置
  if ( i != j )
   { W=L.r[j]；L.r[j] =L.r[i]；L.r[i] = W；}   // 最后互換記錄R[j] 和R[i]
} // SelectPass