Задача коммивояжера, переборный алгоритм

procedure TForm1.Button2Click(Sender: TObject);
const maxv=100;
var a:array[1..maxv,1..maxv]of integer;
    b:array[1..maxv,1..maxv]of byte;
    way,best:array[1..maxv]of byte;
    nnew:array[1..maxv]of boolean;
    bestcost:integer;
    n,i:integer;
procedure init;
var i,j:integer;
begin
   n:=kol;
 for i:=1 to n do
      for j:=1 to n do
         if i=j then a[i,j]:=0 else a[i,j]:=strtoint(form1.StringGrid1.Cells[j,i]);
   bestcost:=0;
end;
 
procedure sortlines;
var k,i,j:integer;
    w:integer;
begin
   for i:=1 to n do
      for j:=1 to n do
         b[i,j]:=j;
   for k:=1 to n do
      for i:=1 to n-1 do
         for j:=i+1 to n do
            if a[k,b[k,i]]>a[k,b[k,j]] then
               begin
                  w:=b[k,i];
                  b[k,i]:=b[k,j];
                  b[k,j]:=w;
               end;
end;
 
procedure solve(v,count:byte;cost:integer);
var i:integer;
begin
   if cost>bestcost then exit;
   if count=n then
      begin
         cost:=cost+a[v,1];
         way[n]:=v;
         if cost<bestcost then
            begin
               bestcost:=cost;
               best:=way;
            end;
         exit;
      end;
   nnew[v]:=false;
   way[count]:=v;
   for i:=1 to n do
      if nnew[b[v,i]] then solve(b[v,i],count+1,cost+a[v,b[v,i]]);
   nnew[v]:=true;
end;
var   j:integer;
begin
label2.Caption:=''; label3.Caption:='';
   init;  
   sortlines;
   solve(1,1,0);
   label2.Caption:=inttostr(bestcost);
   for j:=1 to n do label3.Caption:=label3.Caption+inttostr(best[i])+'-';
end;