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

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

[Айра]

хм.. а как это у тебя один символ строки s s[и] может равняться двум символам ' b' (пробел и b) ?

Сообщение отредактировано: Айра - 18.06.2008 7:39