pascal 程序提问1

程序的功能每列有多少个连续0：
program program4 ;
var
c:array[1..2] of string[200];
s:array[1..10] of integer;
m,n,i:integer ;

procedure numara;
var
cod:boolean;
i,j,nr:integer;
begin
for j:=1 to n do{注意：外循环控制列110}
begin
nr:=0;cod:=true;
for i:=1 to m do{注意：内循环控制行13}
if c[i,j]='1' then
begin
if not cod then {前1个false}
begin
cod:=true;inc(s[nr]);nr:=0;
end
end
else begin{从第1到2列连续5个1,第6个0开始执行nr等于1;cod等于false;s[1]等于1}
if cod then
begin nr:=1;cod:=false ;end
else inc(nr);
end;
if not cod then inc(s[nr]);
end;
end;
begin
readln(m,n);
for i:=1 to m do readln(c[i]);
numara;
for i:=1 to m do
if s[i] <>0 then write(i,' ',s[i],' ');
read(i);
end.

水题~~~刷掉。。。<