Работе со строками в языке Object Pascal Опции

[status]

Текст Задачи : Вводится строка. Сколько процентов в ней таких пробелов, рядом с которыми нет других пробелов?

var S:string;
i,count:integer;
begin
S:=Edit1.Text;
count:=0;
i:=1;
while i<=length(S) do
 if (S[i]=' ') and(S[i+1]<>' ') then
 begin
 inc(count);
 inc(i)
 end
 else
  inc(i,2);
Label1.Caption:=inttostr(count);
 

Когда ввожу не длинную строку считает без ошибак но когда увеличиваю получяю ошибочный результат. Подскожите в чём ошибка и как правильней вывести проценты?

Сообщение отредактировано: status - 14.11.2006 2:24