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 for
end procedure