Посчитать в строке количество слов, заканчивающихся символами «ая».

Program s;
var str:string; //напомню, что если размер строки не указан, то её длинна = 256
i,words:integer;
begin
writeln(введите строку);
Readln(str);
for i:=1 to length(str) do
begin
if str[i] = #32 then
if (str[i-1] = я) and (str[i-2] = а) then words:=words+1;
if i = length(str) then
if (str[i] = я) and (str[i-1] = а) then words:=words+1;
end;
write(слов, оканчивающихся на "ая": ,words);
end.