用pascal 语言编写一个程序读入一系列字符,将它们分别放在英文字母、数字、其他符号三个集合中

var x:string;n,i,a1,b1,c1:integer;a,b,c,yingwen,shuzi:set of char;
begin
yingwen:=['a'..'z'];shuzi:=['0'..'9'];
readln(x);
n:=length(x);
for i:=1 to n do
if x[i] in yingwen then begin a:=a+[x[i]];inc(a1);end
else if x[i] in shuzi then begin b:=b+[x[i]];inc(b1);end
else begin c:=c+[x[i]];inc(c1);end;
for i:=1 to n do
if x[i] in a then begin a:=a-[x[i]];write(x[i]);end; writeln(' ',a1);
for i:=1 to n do
if x[i] in b then begin b:=b-[x[i]];write(x[i]);end; writeln(' ',b1);readln;
for i:=1 to n do
if x[i] in c then begin c:=c-[x[i]];write(x[i]);end; writeln(' ',c1);readln;
end.
自己写的,没调试,望给分