Определить количество слов, начинающихся на заданную букву в строке

Var st:string;
s:char;
I,j,c:integer;
begin
writeln('введите строку st:');
readln(st);
writeln('введите букву s:');
readln(s);
st:=st+' ';
repeat
I:=pos(' '+st,st);         //вот тут говорят косяк есть(
if i<>1 then write(st[i]);
until i=1;
c:=0;
for j:=1 to length(st) do
begin
if pos(s,st)<>0 then c:=c+1;
end;
writeln('количество слов= ',c);
readln;
end.

I:=pos(' ',st);         //вот тут говорят косяк есть(

Var st:string;
    s:char;
    i,c:integer;
begin
writeln('введите строку из слов, разделенных пробелами:');
readln(st);
writeln('введите букву s:');
readln(s);
c:=0;
for i:=1 to length(st) do
if(st[i]=s)and((i=1)or(st[i-1]=' ')) then c:=c+1;
write('количество слов на букву ',s,'= ',c);
readln;
end.

Var st,st1:string;
s:char;
i,c:integer;
begin
write('введите строку st: ');
readln(st);
write('введите букву s: ');
readln(s);
st:=st+' ';c:=0;
While Pos(' ',st)<>0 do {Пока есть пробелы в строке делаем}
 Begin
  st1:=Copy(st,1,Pos(' ',st)-1);{В строку st1 копируем слово до пробела}
  if st1[1]=s then inc(c);{Если первая буква слова st1=введенному символу то увеличиваем на 1 c}
  Delete(st,1,Pos(' ',st));{Удаляем слово из строки st вместе с пробелом}
 End;
if c<>0 then writeln('количество слов= ',c) else writeln('Нету слов начинающихся на букву "',s,'" !');
readln;
end.