Простейшая задача, которую надо сделать в Pascal.

Дан текст. Все слова разделены пробелами. Определить, сколько слов начинается с последней буквы первого слова и вывести их на экран.

Напишу алгоритм далее думаю сам разберешся так как задание легкое 
1)Получили строку

2)Цикл while пока s[i] не равно ' ' пробелу  

как только s[i] = пробелу . Переменная хранящая букву допустим buf будет равна s[i-1]

3)Далее проход по строке допустим если сивол после пробела = buf то count+1 (count счетчик таких слов)

4)В конце выводим count