pascal 细胞问题！

【问题描述】一矩形阵列由数字0到9组成,数字1到9代表细胞,细胞的定义为沿细胞数字上下左右还是细胞数字则为同一细胞,求给定矩形阵列的细胞个数。如:阵列 0234500067103456050020456006710000000089有4个细胞。【输入】 输入共m+1行第一行有两个数据，分别表示总行数和总列数以下的m行，每行有n个0-9之间的数【输出】细胞个数【样例】输入文件（cell.in）4 100234500067103456050020456006710000000089输出文件（cell.out） 4程序 program xibao;const dx:array[1..4] of -1..1=(-1,0,1,0);dy:array[1..4] of -1..1=(0,1,0,-1);var int:text;name,s:string;pic:array[1..50,1..79] of byte;bz:array[1..50,1..79] of boolean;m,n,i,j,num:integer;h:array[1..4000,1..2] of byte;procedure doing(p,q:integer);var i,t,w,x,y:integer;begininc(num);bz[p,q]:=false;t:=1;w:=1;h[1,1]:=p;h[1,2]:=q;repeatfor i:=1 to 4 dobeginx:=h[t,1]+dx[i];y:=h[t,2]+dy[i];if (x>0) and (x<=m) and (y>0) and (y<=n) and bz[x,y]then begininc(w);h[w,1]:=x;h[w,2]:=y;bz[x,y]:=false;end;end;inc(t);until t>w;end;beginfillchar(bz,sizeof(bz),true);num:=0;assign(input,✀n:tp尀bin尀aaa.in✀);reset(input);readln(m,n);assign(output,✀n:tp尀bin尀aab.out✀);rewrite(output);for i:=1 to m dobegin readln(s);for j:=1 to n dobegin pic[i,j]:=ord(s[j])-ord(✀0✀);if pic[i,j]=0 then bz[i,j]:=false;end;end;for i:=1 to m dofor j:=1 to n do if bz[i,j] then doing(i,j);writeln(✀NUMBER of cells=✀,num);readln;close(input);close(output);end.哪位高人把每一部都讲解一下或者讲一下思路，本人感激不尽！！！