в чем ошибка?

[Tolian92]

program gd;
var
l,m: integer; s,t:string;
begin
l:=0;
m:=0;
for i:=1 to Length(s) do
if s[i] in ['0'..'9'] then Inc(l)
else begin
if l>m then m:=l;
l:=0
end;
writeln('max digital sequence length is ',m);

вот задача сама
5. Имеется строка, содержащая буквы латинского алфавита и цифры. Вывести на экран длину наибольшей последовательности цифр, идущих подряд.

[matr_]

var
l,i,m:integer; s:string;
begin
read(s);
l:=0;
m:=0;
for i:=1 to Length(s) do begin
if s[i] in ['0'..'9'] then inc(l)
else if l>m then begin m:=l;
l:=0
end;
end;
writeln('max digital sequence length is ',m);
end.

[Tolian92]

Сообщение от matr_

var
l,i,m:integer; s:string;
begin
read(s);
l:=0;
m:=0;
for i:=1 to Length(s) do begin
if s[i] in ['0'..'9'] then inc(l)
else if l>m then begin m:=l;
l:=0
end;
end;
writeln('max digital sequence length is ',m);
end.

спасибо большое!