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

[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]

flag:boolean=true; - объявление типизированной константы - переменной, которая инициализируется при объявлении, иначе можно

var
flag:boolean
begin
flag:=true;
...
end.

inc(k) то же, что и k:=k+1;
Я просто привык к такому синтаксису.

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