for i:= 0 to length(s)-1 do
 begin
  case s[i] of
   0..9: n:= n+1;
  end;
 end;