Определить количество слов в тексте и вывести только те слова, количество символов в которых нечетное - Pascal

Формулировка задачи:

Дан текст, в котором слова отделяются пробелами, в конце стоит точка. Определить количество слов и вывести только те слова, количество символов в которых нечетное. Заранее спасибо.

Решение задачи: «Определить количество слов в тексте и вывести только те слова, количество символов в которых нечетное»

Листинг программы

var
        s,s2: string;
        count,count2,i: byte;
Begin
        readln(s);
        for i:= 1 to length(s) do begin
                if (s[i] = ' ') or (s[i] = '.') then begin
                        inc(count);
                        if (count2 mod 2 <> 0) then begin
                                write(s2,' ');
                                s2:= '';
                                count2:= 0;
                        end
                        else begin
                                s2:= '';
                                count2:= 0;
                        end;
                end
                else begin
                        s2:= s2 + s[i];
                        inc(count2);
                end;
        end;
        writeln('kol-vo slov = ',count);
end.

Объяснение кода листинга программы

В коде определены следующие переменные:
- s, s2 (строки)
- count, count2, i (байты)
Программа запрашивает ввод строки и сохраняет ее в переменной s.
Переменная i итерирует от 1 до длины строки s.
Если символ в строке s равен пробелу или точке, то увеличивается значение переменной count.
Если значение переменной count2 (счетчик количества слов) нечетное, то в переменную s2 добавляется пробел, значение count2 сбрасывается в 0, и переменная s2 очищается.
Если значение count2 четное, то переменная s2 очищается, и значение count2 сбрасывается в 0.
Если символ в строке s не является пробелом или точкой, то он добавляется в переменную s2, и значение count2 увеличивается на 1.
В конце программы выводится количество слов в строке s с помощью переменной count.