Напишите программу, которая удаляет из строки символов каждое слово нечетной длины. Слова отделяются друг от друга пробелом — Pascal(Паскаль)

var
a,temp:string;
i:integer;
begin
readln(a);
a:=' '+a;
for i:= length(a) downto 1 do
begin
 if a[i]<>' ' then temp:=temp+a[i]
else begin
  if length(temp) mod 2<>0 then delete(a,i,length(temp)+1);
  temp:='';
  end;
end;
writeln(a);
readln;
end.