Preciso em pseudocodigo Visualg! Ler um nome do teclado e ver se é igual ao seu nome. Imprimir conforme o caso: “NOME CORRETO” ou “NOME INCORRETO”.

algoritmo "comparaNome"
    var meuNome, nomeLido: caractere
inicio
     meuNome <- "alexandra"
     leia(nomeLido)
     se nomeLido = meuNome entao
           escreval("NOME CORRETO")
     senao
           escreval("NOME INCORRETO")
     fimse
fimalgoritmo