Não conheço muito de Visualg, mas vamos pela logica:
Para você ler e armazenar vários valores é necessário que você tenha variáveis para dedicar espaço de memoria para isso. Ao invés de criar varias variáveis (nome1,nome2,nome3) você pode criar um vetor:
vet: nomes [1..10] de caractere //1..10 é o inicio e fim do seu vetor.
Assim é só ir adicionando nomes nessa "lista" de nomes atráves de um PARA
e depois dar outro laço de repetição para percorrer este vetor.
Algoritmo "semnome"
Var i,:inteiro
vet: nomes [1..2] de caractere //1..2 é o inicio e fim do seu vetor.
Inicio
para i de 1 ate 2 faca
escreval("Digite o nome: ")
leia(nomes[i])
fimpara
//Inicio de outro PARA para escrever os nomes.
para i de 1 ate 2 faca
escreval("Nome: ",nomes[i])
fimpara
Como eu disse, meu conhecimento de visualg não é lá aquelas coisas mas acredito que ajude :D