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

[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 подскажите что к чему?

[MiH@N]

тут я кое что подредактировал но всё равно требуемого результата не выходит...мож глянете где ещё ошибки.
З.Ы. всегда получается 0.

Код

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

Сообщение отредактировано: MiH@N - 18.06.2008 6:19