Отладка проги (String)

[Legky]

Дано строку символов, который состоит из отдельных слов, разделенных интервалом. Вывести на печать все слова строки, содержащие четное число букв.
дело в том, что про-га работает не совсем корректно

program stroka3;

{$APPTYPE CONSOLE}

uses
SysUtils;

var stroka,slovo:string;
i:integer;


begin
writeln('Input string');
readln(stroka);
writeln('slova s chetnim kol-vom bykv');
i:=1;
while i<length(stroka) do
begin
slovo:='';
while (stroka[i]<>' ')and(i<length(stroka)) do
begin
slovo:=slovo+stroka[i];
i:=i+1;
end;
if length(slovo) mod 2 = 0 then
Writeln(slovo);
i:=i+1
end;
readln;
{ TODO -oUser -cConsole Main : Insert code here }
end.

например, когда пишеш слово из 3х букв ('kyb'), то оно пишет, что 'ky' это слово с парным кол-вом букв или 'olol doma', то она пишет, что парным является только 'olol'. Не подскажите, с чем это связано?

[Marfeys]

Для примера 'olol doma' :

slovo:='';
while (stroka[i]<>' ')and(i<length(stroka)) do
begin
slovo:=slovo+stroka[i];
i:=i+1;

Я выделил конкретно что конкретно что выполняет...
Поэтому из слов с пробелами пишется только начало...



пОЧЕму на -1 букву ??

while (stroka[i]<>' ')and(i<length(stroka)) do

потому что знак < стоит

а если так

while (stroka[i]<>' ')and(i<=length(stroka)) do

то БУдет всё норм