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

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