Hola, se haria asi:
Proceso ordena_lista
Dimension lista[200]
i<-2;
Escribir "Introduzca las palabras para poder ordenarlas alfabeticamente";
Leer nombre;
lista[1]<-nombre
Mientras nombre<>"" Hacer
Escribir "Introduzca otra palabra";
Leer nombre;
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];
Fin Para
FinProceso
Espero que te sirva.