Duvida na linguagem Ual

[pesquisa2010]

Poxa pessoal tenho que entrega esse algaritmo amanha na faculdade e não entendo porque não executa. A linguagem é UAL , alguem pode me ajudar?

prog biblioteca

real Joao, Pedro, Carlos;

string autor;

imprima "\nAUTORES: Joao, Pedro e Carlos", "\n" ;

imprima "\nEscreva o nome do autor desejado:", "\n";

leia autor;

se(autor == Joao)

{imprima "\nAAAAAAAA\n";}

se(autor == Pedro)

{imprima "\nBBBBBBBB\n";}

se(autor == Carlos)

{imprima "\nCCCCCCCC\n";}

fimprog

[rvleite]

prog biblioteca

string Joao, Pedro, Carlos, autor;

imprima "\nAUTORES: Joao, Pedro e Carlos", "\n" ;

imprima "\nEscreva o nome do autor desejado:", "\n";

leia autor;

se(autor == Joao)

{imprima "\nAAAAAAAA\n";}

se(autor == Pedro)

{imprima "\nBBBBBBBB\n";}

se(autor == Carlos)

{imprima "\nCCCCCCCC\n";}

fimprog