pascal问题：选票统计（具体要求：↓）

program tongji;
var i,s,n:integer;
t:char;
begin
readln(n);
for i:=1 to n do
begin
readln(t);
if t='a' then inc(a)
else if t='b' then inc(b)
else if t='c' then inc(c)
else if t='d' then inc(d)
else inc(s);
end;
writeln('A:',a,' ','B:',b,' ','C:',' ','D:',' ');
writeln('qi quan: ',s); {这行输弃权票}
end;

var a:array['a'..'d']of intger;
s:char;i,n:intger;
begin
readln(n);
for i:=1 to n do
begin
readln(s);
if (s>='a')and(s<='d') then inc(a[s]);
end;
for s:='a' to 'd' do
writeln(s,'=',a[s]);
end.