Строковые массивы, задачка на слова Опции

[Hunt666]

Вот такая задачка:
Ввести строку символов.В этой строке удалить все слова с нечетными номерами.

зы я не смог пронумеровать слова

[Гость]

вот что получилось интересно тут есть ошибки?

program stroka;
var i:integer;
    str,str2:string;
begin
 ReadLn(str);
 i:=1;
 str2:=str+' ';
 str:='';
 while length(str2)>0 do begin
  if (i mod 2)<>0 then
   str:=str+copy(str2,0,pos(' ',str2));
  Delete(str2,0,pos(' ',str2));
  inc(i);
 end;
 WriteLn(str);
 ReadLn;
end.