jogo da forca em pascal, exemplo