Не могу написать программу в pascal. Я вообще кулинар:)

Формула подсчета уже написана http://otvet.mail.ru/answer/427288333/.
Не можешь в оболочку её завернуть? ?

Вот

var n,i:integer;
stroka:string;
ch:char;
begin
readln(stroka);
readln(ch);
for i:=1 to length(stroka) do
if (stroka[ i]=ch) and ((stroka[i+1]=' ') or (i=length(stroka))) then inc(n);
writeln(n);
readln;
end.

Если в строке могут быть не только пробелы, но и запятые и т. д. , то заменить stroka[i+1]=' ' на pos(stroka[i+1],znaki)0, где znaki = '., :;'