Something

program forcao;
uses crt;

var palavra:array [1..5] of string;
    erros:array[1..5] of string;
    nome: string;
    vidas,vitorias,derrotas,i,z:byte;
    aux:string;
    acertou:boolean;
    op,c:char;

begin
vidas:=5;
vitorias:=0;
derrotas:=0;

erros[5]:='Vocˆ tem 5 vidas!';
erros[4]:='Errou 1';
erros[3]:='Errou 2';
erros[2]:='Errou 3';
erros[1]:='Vai morrer!!!';

palavra[1]:='CASA';
palavra[2]:='RUA';
palavra[3]:='ORTODENTISTA';
palavra[4]:='HEXADECIMAL';
palavra[5]:='QUARTIL';

clrscr;
writeln('Digite seu nome:');
readln(nome);

clrscr;
writeln(nome,', escolha a op‡Æo desejada');

writeln('J - jogar');
writeln('E - estatisticas');
writeln('P - Ver Palavras');
writeln('S - Sair');

readln(op);
op:=upcase(op);

while(op<>'S') do
 begin
 case op of
 'J': begin
       randomize;
       z:=random(4)+1;
       aux:=palavra[z];
       for i:=1 to length(palavra[z]) do
        aux[i]:='-';

       writeln(erros[5]);
       vidas:=5;
       writeln(aux);
       while(vidas>0) and (palavra[z]<>aux) do
        begin
         writeln('Qual letra voc&#710; deseja tentar?');
         readln(c);
         c:=upcase(c);
         acertou:=false;

        for i:=1 to length(palavra[z]) do
         if(palavra[z][i]=c) then
          begin
          aux[i]:=c;
          acertou:=true;
          end;

        clrscr;
        if(acertou = false) then
         vidas:=vidas-1;

        if(vidas=0) then
         begin
         writeln('Voc&#710; est  morto');
         writeln('A palavra era: ',palavra[z]);
         end
        else
         begin
         writeln(erros[vidas]);
         writeln(aux);
         end;
        end;
        if(vidas>0) then writeln('Parabens por acertar a palavra ',palavra[z],'. Voc&#710; fez ',vidas,' pontos');

        writeln('Digite uma tecla para retornar ao menu');
        readln;

      end;
 'E': begin
      end;
 'P': begin
      end;
 otherwise writeln('Opcao invalida.');
 end;

 clrscr;
 writeln('J - jogar');
 writeln('E - estatisticas');
 writeln('P - Ver Palavras');
 writeln('S - Sair');
 writeln('Digite sua opcao');
 readln(op);
 op:=upcase(op);
 end;

end.