为啥读到var就读不了了？

我写begin了啊

var

q,d,e,r,y,u:integer;

s:string;

begin

read(s);

for q:=1 to 2000 do begin

if s[q]=','then begin

e:=d;

d:=d+1;

y:=1;

end;

if e=d then if s[q]=':'then begin

r:=r+1;

end;

if (s[q]='b')and(s[q+1]='e')and(s[q+2]='g')and(s[q+3]='i')and(s[q+4]='n')and(q0then write(u+d+r);

if d=0 then write(r);

d:=0;

r:=0;

u:=0;

e:=0;

y:=0;

end.