Pascal/Turbo Pascal - Algoritmo de dijkstra programado

Me gustaría que me proporcionaran el algoritmo de dijkstra programado en pascal por favor, estoy teniendo serios problemas con ese algoritmo, de ante mano gracias.

Qué es dijkstra?

Saludos

Es un algoritmo diseñado por ese señor, el cual permite solucionar un problema común de búsqueda de caminos en grafos dirigidos.

Supóngase un grafo dirigido G=(V,A) en el cual cada arco tiene una etiqueta no negativa, y dónde un vértice se especifíca como origen.

El problema es determinar el costo del camino más corto del origen de todos los demás vértices de V, donde la longitud de un camino es la suma de los costos de los arcos del camino.

Se conoce como: "el problema de los caminos más cortos con un sólo origen"

Vaya, pensé que estabas hablando del semáforo de Dijkstra y se requiere multitarea para implementarlo. No sabía que este señor había diseñado el algoritmo del "camino más corto".