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

uses crt;
var s,s1:string;
    i,k,p:byte;
begin
clrscr;
repeat
writeln('Введите текст из слов, отделенных пробелами, в конце точка');
readln(s);
{если нет пробелов или точки в конце}
if (pos(' ',s)=0)or(s[length(s)]<>'.')then writeln('Текст введен неверно');
until (pos(' ',s)>0)and(s[length(s)]='.');
s[length(s)]:=' ';{заменим точку на пробел}
writeln('Слова нечетной длины:');
k:=0;p:=0;
while pos(' ',s)>0 do{пока есть пробелы}
 begin
  s1:=copy(s,1,pos(' ',s)-1);{берем первое слово до пробела}
  k:=k+1;{считаем}
  if length(s1)mod 2<>0 then {если длина нечетная}
   begin
    p:=1;{фиксируем}
    write(s1,' ');{выводим}
   end;
  delete(s,1,pos(' ',s));{удаляем с пробелом}
 end;
writeln;
if p=0 then writeln('Слов нечетной длины нет');
writeln;
write('Общее количество слов=',k);
readln
end.

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.