Алгоритм Дейкстры исправить

[Юна New]

ОПЛАТА ЗА ИСПРАВЛЕННУЮ РАБОТУ!
Всем(Кто смотрит эту тему) ПРИВЕТ !
Делаю курсовую. Из заголовка вы уже поняли, что курсовая про алгоритм Дейкстры ,его реализация в Delphi, с выводом путей и вводом матрицы весов. В задачу самого алгоритма (вывод путей)это конечно не входит, но таково условие... Показывал преподавателю, он нашел ошибку в работе программы!

Входные данные:
0|1|3|0|0|0
0|0|5|7|0|0
0|0|0|4|3|20
0|0|0|0|5|1
0|0|0|0|0|8
0|0|0|0|0|0

результат расчета:
В кратчайший путь от вершины X 1 ко всем вершинам входят дуги :
- к вершине X2: (1;2) длина пути : 1
- к вершине X3: (1;2)(2;3). Длина пути :6
- к вершине X5: (1;2)(2;3)(3;5). Длина пути :9
- к вершине X6: (1;2)(2;3)(3;5)(5;6). Длина пути :17
- к вершине X6: (1;2)(2;3)(3;5)(5;6)(6;6). Длина пути :1000016

Я понимаю, что в чужом коде разбираться очень сложно и задача не из легких. Но очень прошу о помощи!сам я не справлюсь и уповаю на Вас

[Mad_Cat]

твоя программа для этого графа не подойдет!
у тебя она для " Граф задан зеркальный(длина пути в обе стороны одинакова)"
(Вы хоть смотрите, чего скачали, прежде чем авторство присваивать)

[Юна New]

"Граф задан зеркальный"- вы это имеете ввиду? >>

0| 1| 3| 0| 0| 0|
1| 0| 5| 7| 0| 0|
3| 5| 0| 4| 3| 20|
0| 7| 4| 0| 5| 1|
0| 0| 3| 5| 0| 8|
0| 0| 20| 1| 8| 0|

для вот такой вот симметричной матрицы
ответ:

1-2 Длина маршрута = 1
1-3 Длина маршрута = 3
1-3-4 Длина маршрута = 7
1-3-5 Длина маршрута = 6
1-3-4-6 Длина маршрута = 8

или(результат программы)

- к вершине X2 1;2) длина пути : 1
- к вершине X3: (1;2)(2;3). Длина пути :6
- к вершине X5: (1;2)(2;3)(3;5). Длина пути :9
- к вершине X4: (1;2)(2;3)(3;5)(5;4). Длина пути :14
- к вершине X6: (1;2)(2;3)(3;5)(5;4)(4;6). Длина пути :15

?????????
Думаю 1-ый вариант правильный.
И выходит, что программа работает неправильно!