uses crt;
var
s:string;
i,k:integer;
b:char;
begin
writeln('Введите текст');
Readln(S);
Writeln('Введите букву с которой должно начинаться слово');
readln(b);
if b=s[i]then
k:=1;
For i:=1 to length(s) do
if (s[i]=' ') and (s[i+1]=b) then inc(k);
writeln('Количество слов, начинающихся на букву ',b, ' равно ', k);
end.