помогите плз найти и исправить ошибку в задаче на строки. Опции

[MiH@N]

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

procedure TForm1.Button1Click(Sender: TObject);
var s : String;   i : integer;
begin
s:=edit1.text;
edit1.Text:='';
for i=1 to length(s) do
 if (s[i]=' b') then  k:=k+1;
end;
edit2.Text:='k';

после to выдаёт [Error] Unit1.pas(37): For loop control variable must be simple local variable подскажите что к чему?

[Sozialist]

procedure TForm1.Button1Click(Sender: TObject);
var 
s : String;  
i,k : integer;
flag:boolean=true;
BEGIN
   s:=edit1.text;
   edit1.Text:='';
   k:=0;
   for i:=1 to length(s)  do
   begin
      if flag and (s[i]='b') then  inc(k);
      if s[i]=' ' then flag:=true else flag:=false;
   end;
   edit2.Text:=IntToStr(k);
END;

Не проверял. Должно работать.

Сообщение отредактировано: Sozialist - 19.06.2008 15:47

[MiH@N]

Спасибо за помощь!

procedure TForm1.Button1Click(Sender: TObject);
var 
s : String;  
i,k : integer;
flag:boolean=true;
BEGIN
   s:=edit1.text;
   edit1.Text:='';
   k:=0;
   for i:=1 to length(s)  do
   begin
      if flag and (s[i]='b') then  inc(k);
      if s[i]=' ' then flag:=true else flag:=false;
   end;
   edit2.Text:=IntToStr(k);
END;

Не проверял. Должно работать.

а что означает строка flag:boolean=true; ? может надо просто flag:boolean; ? и что означает ink(k)?
Заранее спс.

Сообщение отредактировано: MiH@N - 20.06.2008 14:18