[Resolvido] Qual é meu erro no visualG?

Desenvolva um programa que leia o nome de uma pessoa, o dia e o mês de seu

nascimento e sem seguida apresente o nome da pessoa e o seu signo conforme a tabela

abaixo (Dica: use a fórmula MESDIA = MES * 100 + DIA para definir o signo a que a

pessoa pertence).

algoritmo "semnome"

funcao mesdia(m,d: inteiro): caractere
var
cal: inteiro
inicio
cal <-(m*100+d)
se((cal>=0121) e (cal <=0219)) entao
retorne escreval("É do signo de Aquário ")
senao
se((cal>=0220) e (cal <=0320)) entao
retorne escreval("É do signo de Peixes ")
senao
se((cal>=0320) e (cal <=0420)) entao
retorne escreval("É do signo de Àries ")
senao
se((cal>=0421) e (cal <=0520)) entao
retorne escreval("É do signo de Touro ")
senao
se((cal>=0521) e (cal <=0620)) entao
retorne escreval("É do signo de Gêmeos ")
senao
se((cal>=0621) e (cal <=0721)) entao
retorne escreval("É do signo de Câncer ")
senao
se((cal>=0722) e (cal <=0822)) entao
retorne escreval("É do signo de Leão ")
senao
se((cal>=0823) e (cal <=0922)) entao
retorne escreval("É do signo de Virgem ")
senao
se((cal>=0923) e (cal <=1022)) entao
retorne escreval("É do signo de Libra ")
senao
se((cal>=1023) e (cal <=1121)) entao
retorne escreval("É do signo de Escorpião")
senao
se((cal>=1122) e (cal <=1221)) entao
retorne escreval("É do signo de Sargitário ")
senao
retorne escreval("É do signo de Capricórnio ")
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse

fimfuncao

var
nome,n: caractere
mes,dia: inteiro
inicio
escreval("Digite o nome: ")
leia(nome)
escreval("Digite o mês de seu nascimento ")
leia(mes)
escreval("Digite o dia de seu nascimento ")
leia(dia)
n<-mesdia(mes,dia)
escreval(nome, n)

fimalgoritmo