Строки. Определить, является ли длина слова четной или нечетной

var
  Str, Slovo: String;
  i: Byte;
begin
  write('Строка: ');
  readln(Str);
  Str:=Str+' ';
  for i:=1 to Length(Str) do
    if Str[i] <> ' ' then
      Slovo:=Slovo+Str[i]
    else
      if Length(Slovo) <> 0 then
      begin
        if Length(Slovo) mod 2 = 0 then
          writeln('Слово "', Slovo, '" имеет четную длину!')
        else
          writeln('Слово "', Slovo, '" имеет нечетную длину!');
        Slovo:='';
      end;
end.

uses crt;
var Str, Slovo, Sim: String;
  i,k: Byte;
begin
  write('Строка: ');
  readln(Str);
  Str:=Str+' ';  Slovo:=''; Sim:='';
  for i:=1 to Length(Str) do
    if Str[i] <> ' ' then
       begin
       Slovo:=Slovo+Str[i];
       Sim:=Str[i]+Sim;
       end
    else if Length(Slovo) <> 0 then
      begin
        if Slovo=Sim then  writeln('Слово "', Slovo, '" симметрично!');
        if (Length(Slovo) mod 2 = 0) then
           begin
           if (Slovo<>Sim) then writeln('Слово "', Slovo, '" несимметрично и имеет четную длину!')
              else
              begin
              writeln('Слово "', Slovo, '" несимметрично и имеет нечетную длину!');
              inc(k);
              end;
           end;
        Slovo:=''; Sim:='';
      end;
if k>0 then writeln('Не верно, что всякое несимметричное слово имеет имеет четную длину')
   else writeln('Верно, что всякое несимметричное слово имеет имеет четную длину');
end.