PASCAL 从键盘上输入一个英文句子,找出里面有几个字母A.

var s:string;
l,i:longint;
begin
readln(s); {输入s字符串}
l:=0; {l是A的个数,先清零}
for i:=1 to length(s) do {length（s）是求s的长度}
if s[i]='A' {如果是s[i]是'A',个数就加1}
then inc(l);
writeln(l); {输出个数}
end.
希望我的回答能帮到你.
再问： 运行下来怎么都是0个A啊？是不是哪里错了？
再答： 我试了一下都是对的呀。是不是你输入有问题啊，要大写的A哦。 我输入ABDXA 输出2 输入 AAGCDAAA 输出5