[Resolvido] algoritmo em portugol (VisualG)

[L0g1N 0]

Olá, estou com o seguinte problema para resolver:

Fazer um algoritmo para ler um nome de uma pessoa e imprimi-lo se o primeiro

caractere for a letra A. (considerar letra maiúscula e minúscula).

Desde já agradeço... segue meu código porém, sem êxito:

 

algoritmo "aeA"
var
nome:caracter
inicio
escreval("Digite seu nome")
leia(nome)
se (nome[1]="a") ou (nome[1]="A") entao
escreval("tem letra A")
senao
escreval("nao comeca com A")
fimse
fimalgoritmo

 

Desde já agradeço a quem me ajudar...!

[L0g1N 0]

Resolvido galera,

Tá ai para quem deseja o mesmo.

Utilizei a função "copia" no visualg.

algoritmo "2as"
// Função : Primeira letra "A" ou "a"
// Autor : Alucian P. de Souza Corrêa
// Data : 05/09/2011
// Seção de Declarações 
var
letra,nome:caracter
inicio
escreval("Digite um nome")
leia(nome)
letra:=copia(nome,1,1)
se (letra="a") e (letra="A") entao
escreval("Seu nome: ", nome)
senao
escreval("Não contém A na como primeira letra")
fimse
fimalgoritmo