请各位高手帮忙看看,我实在找不到有什么错,十分感谢

program p1657(input,output);

//prepare for cx

var i,j,k,n,qi,zhi,tmp:longint;

zai,jiyin,march:array[1..180]of longint;

chk:array[1..180]of boolean;

b:boolean;

nam:array[1..180]of string;

w,map:array[1..180,1..180]of longint;

function dfs(p:longint):boolean;

var i:longint;

begin

for i:=1 to n do

if (not chk[i])and(map[p,i]