СТРОКИ, Получается неправильный вывод! Опции

[Светлана]

Здравствуйте!!!
Не могли бы Вы помочь мне подкорректировать задачку...
Она звучит так: Дана символьная строка, содержащая англ. текст. Найти количество слов, начинающихся с буквы b.
Вот решение.

Program b;
var S:string;
i,p,n:integer;
begin
S:='boy bought a blue car';
writeln(S);
p:=0;
for i:=1 to n do begin
if S[i]='' then inc(i);
if S[i]='b' then inc(p);
end;
writeln('kol-vo slov s bykvoi b ravno',p);
readln;
end.

Но у меня в конце пишется, что кол-во слов с буквой b равно 0...

Подскажите, пож-та, в чем ошибка?

[Светлана]

Здравствуйте еще раз!
Я вот переделала немного данную задачку. Она звучит так: Дана символьная строка, содержащая англ. текст. Найти количество слов, начинающихся с буквы b.
Но у меня высвечиваются ошибки... Помогите пож-та подкорректировать.
Заранее спасибо!

Program b;
var S:string;
    i,a,p:integer;
 begin
  S:='boy bought a blue car';
  Writeln(S);
  a:=length(S);
  p:=0;
  begin
   if S[0]='b' then p:=p+1;
   for i:=1 to i<a-1; i:=i+1;
   if S[i]='' and S[i+1]='b' then p:=p=1;
  end;
  writeln('kol-vo slov,na4inaushihsya s bukvy b ravno',p);
 end.

М

Полжалуйста, используй теги