汇编“从键盘输入一串字符，分别统计其中字母、数字和其他字符的个数，并输出显示。”

没代码怎么看。。。
附上我的：（没调）
program easy;
var st:string;
a:array [1..3] of longint;
i:longint;
begin
readln(st);
fillchar(a,sizeof(a),0);
for i:=1 to length(st) do
if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then
a[1]:=a[1]+1 else
if (st[i] in ['0'..'9']) then a[2]:=a[2]+1 else a[3]:=a[3]+1;
writeln('letter:',a[1]);
writeln('number:',a[2]);
writeln('others:',a[3]);
end.

BS楼上。。。

..分给高点嘛，我给你编，要花时间的

对啊，代码呢