CopyQ?

For i=2 to N
      aux=x(i)
      k=i-1
      sw=«falso»
      Do while (sw=«falso») and (k>=1)
            If aux<x(k)
                x(k+1)=x(k)
                k=k-1
            Else
                sw=«verdadero»
            Endif
      Endwhile
      x(k+1)=aux
Endfor

For i=1 to N-1
      aux=x(i)
      k=i
      For j=i+1 to N
            If x(j)<aux
                aux=x(j)
                k=j
            Endif
      Endfor
      x(k)=x(i)
      x(i)=aux
Endfor

For i=1 to N-1
      For j=1 to N-1
            If a(j)>a(j+1)
                mayor=a(j)
                a(j)=a(j+1)
                a(j+1)=mayor
            Endif
      Endfor
Endfor