编程初学者……初中 那位能来帮帮忙 谢谢

题目是 任意输入a,b,c,d  几个没关系 不输入其中哪个也没事
输出 a xx b xx c xx d xx（xx代表的是各字母的数量）
我们要用刚学的循环语句 for的那个
我变得是……
var a,i:char;s,t,u,v:integer;
begin
readln(a）
s:=0;t:=0;u:=0,v:=0;
for i:='a'to'd'do
if ord(a)=97 then s:=s+1
else if ord(a)=98 then t:=t+1
else if ord(a)=99 then u:=u+1
else v:=v+1;
write('a',' ',s,' ','b',' ',t,' ','c',' ',u,' ','d',' ',v)
end.
我只是刚学没几天 则么觉得那个循环和不循环没啥差别啊……哪位大虾谁能帮帮我啊……谢谢了