pascalABC, помогите пожжалуйста

[appolon]

Задан текст, в котором до 40 слов, в каждом из которых до 15 символов. Слова между
собой отделены только одной запятой. В конце текста точка. Выведите на экран и
определите количество слов, которые содержат хотя бы одну букву с. (pascalABC)

[ViktorR]

Сделай что ни будь.
Например, напиши код, который определяет, что в слове есть заданная буква.
Типа:

function tstword(w: string, ch: char): boolean;
begin
   tst := False;
   <тут твой код>
   <если в слове w встретился символ ch, то
      tst := True;>
   Result := tst;
end;

Почитай, например, тут http://pascalabc.net/wiki/index.php?...B0%D0%BC%D0%BC