两个程序，除了一些细节处理不同，第2个程序怎么都不A，为什么。。。。

程序1：

var

      n,m,i,j,x,y,k,t:longint;

      map:array[1..20,1..20] of longint;

      f:array[1..40,1..20,1..20,1..20] of longint;

function min(a,b:longint):longint;

begin

      if a>b then

       exit(b);

      exit(a);

end;

function max(a,b:longint):longint;

begin

      if a