[Imp]

for idx:=1 to length(str)-1 do
if (str[idx] = str[idx+1]) and (str[idx+2] = ' ') then
{слово кончается на 2 одинаковые буквы}