Pascal/Turbo Pascal - Encontrar un camino en grafos

No se me ocurre como puedo hacer para que dados dos vertices y un grafo pueda decir si entre esos dos vértices existe un camino o no.
Si el grafo usa una declaración de matriz de adyacencia si que sabria hacerlo, pero si el grafo usa una declaración de listas de adyacencia no se me ocurre.
Pienso cosas pero me salen muy complicadas. Seguro que debe de haber una forma sencilla de saber si hay un camino entre dos vertices de un grafo declarado mediante listas de adyacencia. ¿Alguna idea?. Muchas gracias y un saludo.

Bueno, así de manera general, un DFS creo que funcionaría. Recorrerías desde el origen hasta que encuentres el destino o hayas recorrido todos los vértices. No parece una solución óptima, pero...

Estoy buscando el código fuente de recorrido de grafos pero no lo encuentro, ¿alguien me ayuda?. Muchas gracias.

Hola, tenes este codigo? graciasssssssss