pascal马栏过河卒修改棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有

pascal马栏过河卒修改
棋盘上A点有一个过河卒,需要走到目标B点.卒行走的规则：可以向下、或者向右.同时在棋盘上C点有一个对方的马,该马所在的点和所有跳跃一步可达的点称为对方马的控制点.因此称之为“马拦过河卒”.
棋盘用坐标表示,A点(0,0)、B点(n,m)(n,m为不超过15的整数),同样马的位置坐标是需要给出的.现在要求你计算出卒从A点能够到达B点的路径的条数,假设马的位置是固定不动的,并不是卒走一步马走一步.
我的程序：
var
CO:array[1..1000,1..1000] of longint;
H,S:array[1..1000] of longint;
kill,e:array[0..255] of boolean;
ENDx,ENDy,xh1,xh2,xh3,hx,hy,key,Bx,By:longint;
boo1,boo2:boolean;
procedure try;
begin
for xh1:=1 to 2 do
if (CO[Bx+H[xh1],By+S[xh1]]=0) and (Bx+H[xh1]>=0) and (By+S[xh1]>=0) and (Bx+H[xh1]