Дана строчка. Подсчитать количество слов,кончающихся буковкой и. Мышки ели шишки

program zz1;
var s:string; // задаем переменную строкового типа
i, k:integer; // задаем переменную целого типа
begin
write( введите строчку );
read(s); // вводим с клавиатуры строчку
s:=s+ ; // добавим в конец строчки пробел
for i:=1 to length(s) do // организуем цикл, в котором переберем все знаки от первого до заключительного
if s[i] = then if s[i-1]=и then k:=k+1; // находим пробел и проверяем предыдущую букву, если она "и",  то считаем ее
write( количество слов заканчивающихся на "и" = , k);
end.