Минимальное время обхода островов delphi

[alnik]

Такая задача: Имеется n островов с заданными координатами. С каждого острова можно построить m(i) количество мостов(m<n). Необходимо так соединить острова мостами, чтобы можно было за минимальное время обойти все острова.

Я так понял, что эта задача похожа на нахождение кратчайшего пути в графе. Но может быть и нет.

Есть у меня алгоритм перебора, который выводит все варианты обхода, но как реализовать само решение я не знаю, в делфи очень плох, кто подскажет, что можно сделать?

Procedure Vivod;
Var i:integer;
    s:string;
begin
   s:='';
   For i:=1 to n do
   s:=s+IntToStr(arrbit[i]);

   Form1.ListBox1.Items.Add(s)
end;


Procedure Perebor(k:integer;s:SetInt);
Var i:integer;
begin
   if s=[] then begin
        Vivod;
        Exit
    end;
    For i:=1 to n do
       If i in s then begin
           arrbit[k]:=i;
           Perebor(k+1,s-[i]);
       end;

end;