售货员的难题 free pascal

Description

某乡有n个村庄(1< n< 40)，有一个售货员，他要到各个村庄去售货，各村庄之间的路程s(0< s< 1000)是已知的，且A村到B村与B村到A
村的路大多不同。为了提高效率，他从商店出发到每个村庄一次，然后返回商店所在的村，假设商店所在的村庄为1，他不知道选择什么
样的路线才能使所走的路程最短。请你帮他选择一条最短的路。

Input

村庄数n和各村之间的路程(均是整数)。

Output

最短的路程。

Sample Input

3 {村庄数}

0 2 1 {村庄1到各村的路程}

1 0 2 {村庄2到各村的路程}

2 1 0 {村庄3到各村的路程}

Sample Output

3

Source

搜索

限时2000MS

请问我为什么老是超时，请高手帮忙修改（请注意是修改，不是答案！！）

var sz:array [1..40,1..40] of longint;
    flag:array [1..40] of longint;
    n,i,j,min,m:longint;
procedure work(c,i:longint);
var j:longint;
begin
  if c=n
  then begin if m+sz[i,1]<min then min:=m+sz[i,1]; end
  else
   begin
     {for j:=2 to n do
       if (flag[j]=0) and ((m+sz[i,j])<=min)
       then
          begin
            flag[j]:=1;
            m:=m+sz[i,j];
            work(c+1,j);
            flag[j]:=0;
            m:=m-sz[i,j];
          end;}
  for j:=2 to n do
   if (i<>j) and (flag[j]=0) then
     begin
      m:=m+sz[i,j];
      flag[j]:=1;
      if m<min then work(c+1,j);
      m:=m-sz[i,j];
      flag[j]:=0;
     end;
   end;
end;
begin
   assign(input,'saleman.in');
   assign(output,'saleman.out');
   reset(input);
   rewrite(output);

  readln(n);
  for i:=1 to n do
     begin
        for j:=1 to n do read(sz[i,j]);
        readln;
     end;
  min:=999999;
  for i:=2 to n do
    begin
      flag[i]:=1;
      m:=sz[1,i];
      work(2,i);
      flag[i]:=0;
    end;
  writeln(min);

   close(input);
   close(output);
end.