Problema de programación en pascal

Estoy haciendo un programa que resuelve la solución de un laberinto. Tengo un error en tiempo de ejecución en un procedimiento y por más vueltas que le doy no consigo ver donde puede estar el error. ¿Podría ayudarme?
Gracias