宽搜 怎么弄pascal

用队列，读取头节点，处理后把与之相关的节点加入队列，直到队列的头节点赶上尾节点

q[1,1]:=x1;q[1,2]:=y1;//最初的节点进队列
t:=1;//队首指针
tail:=1;//队尾指针
while t<=tail do begin
找与之相关的节点
if 符合要求 then begin
处理头节点,加入与之相关的节点
end;
end;
t:=t+1;
end;
(以上结构适合有一个用二维数组储存的'地图'的宽搜.如果是其他的话请补充一下)