Pascal/Turbo Pascal - juego ahorcado

Hola tengo que entregar una practica en pascal sobre el jueego del ahorcado, utilizando subprogramas, alguien tiene el código fuente por ahí parta comprobar unas dudas y unos problemillas q tengo?

Y porqué no utilzas Google para buscar el codigo. Mejor escribe tus dudas o problemas. Es más facil asi.

Mmm, ya buscaste en esta página. Porque aquí hay un codigo de "el juego ahorcado".