m:=0;
n:=0;
for i:=1 to Length(s) do if ('0'<=s[i]) and (s[i]<='9') then begin
  Inc(n);
  if n>m then m:=n
end
else n:=0;