Определить количество слов во введённом тексте, начинающихся с заданной буквы. Считать, что слова в тексте разделены пробелами — Pascal(Паскаль)

[AdSense-B]

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.