Работа со строками. Подсчитать количество четных/нечетных букв в слове.

[snusmumr]

Помощи ну или хотя бы волшебного пинка
Вот задача:

Дана строка(текст). Сообщите, каких слов больше - с четным количеством букв или с нечетным.
решить нужно на Turbo Pascal по простому - со строковыми функциями.

Я примерно понимаю, что нужно строку просчитать на отдельные слова, а затем в цикле у каждого слова определить количество символов (length(slovo)) и разделить на 2 без остатка для проверки четности (mod 2= 0).
Но! Моей соображалки не хватает на написание тела цикла >_<
вот примерное начало

uses crt;
var s: string;
      i, k: integer;
begin
clrscr;
writeln('введите текст');
readln(s);
k:=1;
  if (s='') or (s=' ') then writeln ('неверный ввод')
    else 
      begin
      for i:=1 to length(s)-1 do
      if (s[i]=' ') and (s[i+1] <> ' ') then k:=k+1;
      end; 

      {здесь мы нашли сколько слов в тексте. я в курсе, что это не надо, но хоть что-то:o}

   if (length(s) mod 2=0) then writeln ('четное кол-во букв') else writeln ('нечетное кол-во букв'); 
      
      {но загвоздка в том, что он считает нечетность всего текста, а не каждого слова:(}

readln;
end.

уже всякие форумы перерыла - нигде нет хотя бы похожей. помогите кто чем может

[GetMax]

Разбирайтесь

Var
  st,buf:String;
  i,chet,nechet:Byte;
begin
  Readln(st);
  buf:='';
  chet:=0;
  nechet:=0;
  For i:=1 to Length(st) do
  Begin
    If (St[i] <> ' ') and (i <= Length(st)) then buf:=Buf+St[i];
    If (St[i] = ' ') or (i = Length(St)) then
    Begin
      If buf <> '' then
      Begin
        If Length(buf) mod 2 = 0 then inc(chet)
                                 else inc(nechet);
        buf:=''
    End;
    End;
  End;
  If Chet > Nechet then Writeln('Bolshe chetnyh')
  else
  If Chet < Nechet then Writeln('Bolshe nechetnyh')
  Else
  Writeln('Ravnoe kolichestvo');
  Readln
End.

[snusmumr]

Огромнейшее спасибо! Очень выручили!
только есть вопрос -
что значит присвоение переменой buf:='' ?
что-то вроде буфера обмена, где накапливается количество символов каждого слова?

[GetMax]

что значит присвоение переменой buf:='' ?

Это значит, что переменная buf - пустая строка. В программе она используется для выделения отдельного слова из строки. То есть, пока не встретился пробел или не дошли до последнего символа, считаем что полученные символы принадлежат одному слову.

[snusmumr]

О, теперь понятно.
Благодарю!