[Uli89]

Добрый день.Кто-нибудь может помочь написать программу на Delphi алгоритм нахождения расстояния между двумя городами.Пожалуйста, очень нужно.
Массивы:
// матрица весов (расстояний между городами)
Weights: array [0..MAXTOWNCOUNT-1, 0..MAXTOWNCOUNT-1] of integer;
// количество городов

towncount: integer;
// массивы для расчета
// город (вершина графа) уже обсчитан
Ready: array [0..MAXTOWNCOUNT-1] of boolean;
// текущий кратчайший пусть до этого города из первого

Paths: array [0..MAXTOWNCOUNT-1] of word;
// предпоследний узел пути из первого города до этого

Nodes: array [0..MAXTOWNCOUNT-1] of integer;
// индекс первого города

first: integer;

sgWeights: TStringGrid;(таблица городов и расстояний между ними)
lbTowns: TListBox;(в это поле добавляются города, введенные с клавиатуры в поле Edit)

ComboBox1: TComboBox;(выбор начального города)
ComboBox2: TComboBox;(выбор конечного города)

Желательно использовать НЕ алгоритм Дейкстры.
СПАСИБО!!!!!!!!!!!!!