Proceso ordena_lista
DIMENSION lista[200];
Escribir "introduce una palabra"
leer nombre;//la palabra que introduce el usuario
lista[1]<-nombre; //carga el primer nombe a la primera posicon
i<-2
Mientras nombre<>"" Hacer
Escribir "introduce otra palabra";
leer nombre; //la palabra que introduce el usuario
Para j<-1 Hasta i-1 Con Paso 1 Hacer
Si nombre<>lista[j] Entonces
lista[i]<-nombre;
Sino
Escribir "este nombre ya ha sido introducido";
j<-i-1;
i<-i-1;
Fin Si
Fin Para
i<-i+1;
Fin Mientras
Para j<-1 hasta i-1 hacer
pmenor<-j
para k<-j+1 hasta i-1 hacer
si lista[pmenor]>lista[k] entonces
pmenor<-k;
FinSi
FinPara
aux<-lista[j];
lista[j]<-lista[pmenor];
lista[pmenor]<-aux;
FinPara
Para j<-1 hasta i Hacer
escribir "", lista[j];
FinPara
FinProceso