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

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