Vector ordenado por método de Inserción

Programa en Pseudocódigo para ordena un vector con el método inserción.

Proceso vector_ordenar_insercion
    Dimension a[1000]
    Repetir
        leer n
    Hasta Que (n>1 & n = trunc(n))
    Para i<-1 Hasta n Con Paso 1 Hacer
        Leer a[i]
    FinPara
    Para i<-1 Hasta n Con Paso 1 Hacer
        x<-a[i]
        j<-i-1
        Mientras (j>=1 & x<a[j]) Hacer
            a[j+1]<-a[j]
            j<-j-1
        FinMientras
        a[j+1]<-x
    FinPara
    Para i<-1 Hasta n Con Paso 1 Hacer
        Escribir a[i]
    FinPara

FinProceso