Pascal/Turbo Pascal - Laberinto aleatorio

¿Alguien podría especificarme algún sitio o facilitarme el código para la creación de un laberinto aleatorio a resolver?. Cada vez el camino debe ser diferente y generado por el ordenador.
Cualquier tipo de informacíon al respecto que pudiera ayudarme lo agradecería.
Saludos!

www.algoritmia.net ahi tienes para harto en recursividad

Busco un programa de laberinto, donde las paredes sea 1 y las entradas sean 0, me urge