помогите написать программу!!!пожалуйста!!!

[radeon37]

Подсчитать, сколько слов во фразе заканчиваются на одинаковые буквы. Если таких слов нет, то посчитать количество букв "п".

[Данила]

1. делаем множество из знаков препинания.
2. заводим 2 счетчика - для одинаковых букв и для П
3. бежим итератором по строке и проверяем
4.если i-aя буква = п  накидываем счетчик п
   если i-ая буква = i+1 ой и i+2 - пробел или знак препинания из множества^^ накидываете счетчик одинаковых букв
5. в конце если 1ый счетчик = 0 выводите 2ой,иначе выводите 1ый

[radeon37]

Я не очень смыслю в программировании:) Не могли бы вы написать эту программу на паскале:) если это вам не трудно:)) буду очень благодарен)))

[Данила]

Код: [Выделить]

var i,pc,dc:integer;
m:set of char;
s:string;
begin
m:=['!','.','?',','];
readln(s);
s:=s+' ';
for i:=1 to length(s)-2 do begin
  if (s[i]='p') then inc(pc);
  if ((s[i]=s[i+1]) and ((s[i+2]=' ') or (s[i+2] in m))) then inc(dc);
  end;
if dc=0 then writeln(pc) else writeln(dc);
readln;
end.