Algoritmo para verificar as respostas de acordo com o gabarito

Var
// Seção de Declarações das variáveis
respostas,gabarito: vetor[1..3]caractere
i,acertos, erros: inteiro
Inicio
// Seção de Comandos, procedimento, funções, operadores, etc...
//Escreval("Digite a resposta")
//Escreval("Digite o gabarito")
para i de 1 ate 3 faca
Escreval("Digite a resposta")
leia(respostas[i])
se(respostas[i]<>a) e (respostas[i]<>b) e (respostas[i]<>c) e (respostas[i]<>d)
Escreval("Por favor digite respostas válidas de a,b,c e d")
fimse
fimpara
para i de 1 ate 3 faca
Escreval("Digite o gabarito")
leia(gabarito[i])
se(gabarito[i]<>a) e (gabarito[i]<>b) e (gabarito[i]<>c) e (gabarito[i]<>d)
Escreval("Por favor digite um gabarito válido de a,b,c e d")
fimse
fimpara
acertos<-0
para i de 1 ate 3 faca
se(respostas[i] = gabarito[i]) entao
acertos<-acertos+1
fimse
erros<-3-acertos
fimpara
escreval("O número de acertos foi:",acertos)
escreval("O número de erros foi:", erros)
Fimalgoritmo

Criei esse algoritmo porém o mesmo apresenta o erro variável RESPOSTAS[1] não foi encontrada, já tentei achar o erro e nada, o algoritmo que fiz é para pedir as respostas de a até d caso não seja informado isso irá pedir para informar esse valor no gabarito também e também conta os acertos e os erros