Отладьте прогу (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'. Не подскажите, с чем это связано?

[Z1000000]

Добавить пробел к входящей строке.

writeln('Input string');
readln(stroka);
stroka := stroka + ' ';

[Legky]

точно. как я просмотрел?
спасибо