2 задачи на строки

[NEMO1991]

1.Определить, есть ли в строке слова, заканчивающиеся на указанную букву.
2.Определить, сколько раз стоящие рядом два слова начинаются на одну и ту же букву.

помогите(решение в pascal)

[Gorychev]

1.

var s: string;
...........
s:='ddddddddd ssf gggfjgfjg';
if ((pos('f', s)<>0)and(s[pos('f', s) +1]=' ')) then writeln('yes');

На второе сами думайте. pos, delete в совокупности с циклом вам в помощь... Ну и гугл конечно...

[NEMO1991]

спс)))просто я строки вообще плохо знаю мы их не прошли а в зачете есть(((