Vector ordenado descendentemente

Programa en Pseudocódigo para ordena un vector descendentemente

Proceso vector_ordenar
Dimension v[100]
Repetir
leer n
Hasta Que (n>1 & n = trunc(n))
Para i<-1 Hasta n Con Paso 1 Hacer
Leer v[i]
FinPara
Para i<-1 Hasta n-1 Con Paso 1 Hacer
Para j<-i+1 Hasta n Con Paso 1 Hacer
Si v[j]>v[i] Entonces
aux<-v[j]
v[j]<-v[i]
v[i]<-aux
FinSi
FinPara
FinPara
Para i<-1 Hasta n Con Paso 1 Hacer
Escribir v[i]
FinPara
FinProceso