Procedure SelectionSort(A)
for i=1 to n
pos=i
for j=i+1 to n
if (A[j] < A[pos])
pos=j
end if
end for
eemp = A[i]; A[i] = A[pos]; A[pos] = temp
end procedure