Eu fiz com "para...faca" algoritmo "semnome"
// Função :
// Autor :
// Data : 22/8/2011
// Seção de Declarações
var
p:vetor[1..15]de caractere
i:inteiro
inicio
para i de 1 ate 15 faca
escreval("Digite o nome de uma pessoa: ")
leia (p[i])
fimpara
para i de 1 ate 15 faca
escreval(p[i])
fimpara
fimalgoritmo
ou
para i de 15 ate 1 passo-1 faca
escreval(p[i])
fimpara
ou
algoritmo "semnome"
// Função :
// Autor :
// Data : 22/8/2011
// Seção de Declarações
var
p:vetor[1..15]de caractere
i:inteiro
inicio
para i de 1 ate 15 faca
escreval("Digite o nome de uma pessoa: ")
leia (p[i])
fimpara