[sasha.belyi]

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

Вот составил программу, но она почему то не считает первое слово, если оно начинается на последнюю букву предлжения.

Код:

program stroka;
uses crt;
var a:string; i,k:integer;
begin
clrscr;
Writeln ('Введите строку: ');
read (a);
k:=0;
for I:=1 to length(a) do
if (a[i]=a[length(a)]) and (a[i-1]=' ') then k:=k+1;
Writeln ('Кол-во слов равно: ',k);
readkey;
end.

Админ: Не забываем про теги!

Подскажите что не так пожалуйста!