这程序哪里错了那？？为什么 201 错误？？

typeshuzu1=array[1..100,1..100] of longint;shuzu2=array[1..100] of string;jilu=record
zhan:char; end;varww:array[1..100,1..100] of jilu;s:array[1..100] of char;a,b:shuzu1;q:shuzu2;dd:char;ee:array[1..100] of integer;x,y,h,m,i,j,l,z:integer;ch:string;procedure quu(n:char); var hh:boolean; c,v,u,t:integer; begin
for c:= 1 to m do for v:= 1 to ee[c] do begin if ww[c,v].zhan=n then begin hh:=false; for u:= v downto 1 do
if ww[c,u].zhan='1' then hh:=true; if hh=true then
begin write(t); close(input);close(output); exit; end else begin t:=t+1; quu(ww[c,v-1].zhan); end; end; end; end;
beginassign(input,'1.txt');assign(output,'2.txt');reset(input);rewrite(output);readln(m);readln(dd); for i:= 1 to m do begin h:=0; readln(ch); for j:=1 to length(ch) do begin s[j]:=ch[j]; end; for j:= 1 to length(ch) do begin if s[j]<>' ' then begin h:=h+1; ww[i,h].zhan:= s[j]; end; ee[i]:=h; end; end;
quu(dd);
end.

type
shuzu1=array[1..100,1..100] of longint;
shuzu2=array[1..100] of string;
jilu=record
zhan:char;
end;
var
ww:array[1..100,1..100] of jilu;
s:array[1..100] of char;
a,b:shuzu1;q:shuzu2;
dd:char;
ee:array[1..100] of integer;
x,y,h,m,i,j,l,z:integer;
ch:string;
procedure quu(n:char);
var hh:boolean;
c,v,u,t:integer;
begin
for c:= 1 to m do
for v:= 1 to ee[c] do
begin
if ww[c,v].zhan=n then begin hh:=false;
for u:= v downto 1 do
if ww[c,u].zhan='1' then hh:=true;
if hh=true then
begin write(t);
close(input);close(output); exit; end
else
begin
t:=t+1;
quu(ww[c,v-1].zhan); end; end; end; end;
begin
assign(input,'1.txt');
assign(output,'2.txt');
reset(input);rewrite(output);readln(m);readln(dd);
for i:= 1 to m do
begin h:=0;
readln(ch);
for j:=1 to length(ch) do
begin
s[j]:=ch[j]; end; for j:= 1 to length(ch) do begin if s[j]<>' ' then begin h:=h+1; ww[i,h].zhan:= s[j]; end; ee[i]:=h; end; end;
quu(dd);
end.