请各位前辈们帮我看看这个程序有什么问题阿！谢谢啦！
题目：选票统计：有a、b、c、d四位侯选人，n位投票人。统计时，a、b、c、d以外的字符为弃权，按得票多少输出候选人代号及得票数。

program jzl;
var
  a,b,c,d,e,n:integer;
  f:char;
begin
  read(n);
  a:=0;  b:=0;  c:=0;  d:=0;
  for e:=0 to n do
   begin
     readln(f);
     if f='a'  then a:=a+1;
     if f='b'  then b:=b+1;
     if f='c'  then c:=c+1;
     if f='d'  then d:=d+1;
   end;
   write(a,b,c,d);
end.