colocar 15 cidades e ordená-las

algoritmo "Vetor_cidade"
// Função :
// Autor :
// Data : 16/03/2007
// Seção de Declarações
var
res:caractere
cidade: vetor [1..15] de caractere
j,i: inteiro
inicio
para i <- 1 ate 15 faca
escreval ("Digite um nome de cidade")
leia (cidade[i])
fimpara
para i de 1 ate 14 faca
para j de i+1 ate 15 faca
Se (cidade[i] > cidade[j]) entao
res <- cidade [i]
cidade[i] <- cidade[j]
cidade[j] <- res
fimse
fimpara
fimpara
para i <- 1 ate 15 faca
escreval(cidade[i])
fimpara
// Seção de Comandos
fimalgoritmo