Кратчайший путь Delphi

[zzzzz]

Помогите пожалуйста найти кротчайший путь из точки А в точку Б, в массиве. При этом можно двигаться по горизонтали по вертикали и по диагонали. Чтоб подходил для любых вариантов заполнения массива как в одну так и обратную сторону. Примеры массивов в скрине. Не заполненные клетки не учитывать(строить маршрут в обход них). Ответом должна быть просто последовательность чисел. Просто для частного случая можно написать что-то, думаю не составит труда, а вот если таблицы будут заполнены по другому? Вот в этом то и вся проблема.

[s-andriano]

Если веса переходов между клетками одинаковы - волновой алгоритм, иначе - алгоритм Дейкстры.