按字母，数字和其它字符数计数

输入一系列字符，对其中的数字字符、字母字符和其它字符分别计数。输入'？'后结束。
var ch:char;
　　　　letter:set of char;
　　　　digit:set of '0'..'9';
i,j,k:integer;
　　begin
　　　letter:=['a'..'z','A'..'Z']; digit:=['0'..'9'];
　　　i:=0; j:=0; k:=0;
　　　repeat
　　　　read(ch);
　　　　if ch in letter
then i:=i+1
　　　　  else if ch in digit then j:=j+1 else k:=k+1;
　　　until ch='?';
　　  writeln('letter:',i,'digit:',j,'other:',k)
end.