Посчитать количество букв "А" в слове - Pascal ABC

var
k, i: integer;
s: string;
begin
readln(s);
k:=0;
for i:=1 to length(s) do
if s[i] = 'A' then
inc(k);
writeln(k);
writeln
end.