dijkstra

preciso criar uma funcao onde encontro menor caminho com a funcao dijkstra , alguem pode me ajudar a implementar esta funcao em pascal?