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:=nendelse n:=0;