低效率，需检索字符串10次。
var s:string; k:char; find:boolean;begin s:='hkjhjh0iuuyyioh'; find:=false; for k:='0' to '9' do if pos(k,s)>0 then find:=true; if find then writeln('include digit') else writeln('no');end.
