[PASCAL] Conversor de moedas em While

//Conversor de Moedas v2 agora em While

program conversorDeMoedas;

var
    dinheiro:real;
    total:real;
    opcao:string;

begin
    writeln(' ----- conversor de moedas iniciado. ');
    write('Escolha uma opcao - Euro ou Dolar ');
    read(opcao);
    while ( opcao = 'dolar') or (opcao = 'euro') do
        begin
            if(opcao = 'dolar') then
                begin
                    write('Digite o valor a ser convertido em Dolar.');
                    readln(dinheiro);
                    total := dinheiro*0.40;
                    write(' ', dinheiro,' convertido em dolar é ', ROUND(total));
                    writeln('Digite *sair* para sair ou Dolar e Euro para converter um novo valor.');
                    read(opcao);
                end;
            if(opcao = 'euro') then
                begin
                    write('Digite o valor a ser convertido em Euro.');
                    readln(dinheiro);
                    total := dinheiro*0.50;
                    write(' ', dinheiro, 'convertido em dolar é ', ROUND(total));
                    writeln('Digite *sair* para sair ou Dolar e Euro para converter um novo valor.');
                    read(opcao);
                end;
        end;
       readln;
       writeln('Você saiu ! Obrigado por usar o programa.');
end.