free pascal 扫雷问题

var
	m,n:integer;
	c:array[1..100,1..100] of char;
	a:array[0..101,0..101] of shortint;
	b:array[1..100,1..100] of shortint;
	f:text;
	i,j:integer;
begin
	assi