Помогите пожалуйста составить программу на ''Pascal ABC'')

Дана строка, содержащая текст на русском языке, и некоторая буква. Подсчитать, сколько слов начинается с указанной буквы.

var s:string;i,f,l:integer;a:string;beginreadln(s);read(a);f:=0;l:=length(s);for i:=l downto 1 dobeginif s[i]=' ' then             if s[i+1]='a' then f:=f+1;end;             if s[1]='a' then f:=f+1;writeln(f);end.