代码如下

var a,b:array[1..100,1..100] of 0..1;

s:string[100];

i,j,m,n,c,t,k,u:integer;

function huo(x,y:shortint):shortint;

var t:shortint;

begin

t:=0;

if (a[x-1,y-1]=1)and(t