TheMajor

Program Pzim ; var P:string; //Palavra Cont:string; //palavra ao contrario x:integer; r:char; Begin write ('Digita a palavra: '); read(P); P:=upcase(P); repeat delete(P,pos(' ',P),1) until pos(' ',P) = 0; //remover espaços repeat delete(P,pos('-',P),1) until pos('-',P) = 0; //remover hífens for x:= length(P) downto 1 do cont:=cont + P[x]; clrscr; writeln(' A palavra normal é: ', P); writeln(' A palavra ao contrario é: ',cont); if P = cont then writeln(' Essa palavra é Polindromo!!') else writeln(' Essa palavra não é um Polindromo.'); //====================================================================================// writeln; write('OUTRA CONSULTA? [S/N] >> '); repeat sair:=upcase(readkey) until sair in ['S','N']; until sair='N'; End. Ele simplesmente fica cismando com a parte inferior, onde tento fazer outra consulta.