Строка содержит несколько слов, между соседними словами не менее одного пробела, за последним словом – точка. Выбрать все слова, имеющие нечетную длин

uses crt;
var s,s1:string;
    c:char;
    i,j,k,p:byte;
begin
clrscr;
writeln('Введите строку из слов, разделенных пробелами, в конце точка');
s:='';
repeat
c:=readkey;//читаем код нажатой клавиши
write(c);//выводим символ
s:=s+c;//пишем в строку
if c=#46 then writeln;//если точка, конец ввода, на новую строка
until c=#46;
writeln('Слова нечетной длины в обратном порядке:');
i:=1;
while i<length(s) do
if((i=1)or(s[i-1]=' '))and(s[i]<>' ') then//если не пробел и первый или перед ним пробел
 begin
  j:=i;
  s1:='';//новое слово
  while(j<length(s)) and(s[j]<>' ')do
   begin
    s1:=s1+s[j];
    j:=j+1;
   end;
  if odd(length(s1)) then//если длина нечетная
   begin
    k:=1;
    for p:=length(s1)downto 1 do//выводим с конца
    write(s1[p]);
    write(' ');
   end;
  i:=i+length(s1);//перешагиваем
 end
else i:=i+1;//если пробел, вперед
if k=0 then write('Слов нечетной длины нет');
readln
end.
readln
end.