ИНФОРМАТИКА: Как узнать сколько букв "А" в слове абракадабра - написать программу в Pascal ABC, которая выводит кол-во букв"а" на экран

Program n1;
var st: string;
i,k: integer;
begin
st:='абракадабра';
k:=0;
for i:=1 to st.Length do
if st[i]='а' then k:=k+1;
writeln('в этом слове ',k,' букв а');
end.