什么啊 怎么总卡在最后一个点上麻烦大家帮我看看

program zhu;

var f,a:array[-1..1000,-1..1000]of int64;

n,max,k:int64;

i,j,e:longint;

zhuan,change:boolean;

function best(x,y,z:integer):integer;

begin

if y