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

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

Выложи, что сделал, пожалуйста.

дело в том что без нумеровки строк то что я сделал не имеет смысла

просто посоветуйте как лучше нумеровать слова

А нужно ли нумеровать? Просто удаляй через одно, начиная с первого..

а как это сделать
ведь как я понимаю процедура delete удалает из строки слово определенной длины

читал?

читал непонял

что именно не понял?

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

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.

ой не от себя написал и
нужно <> заменить на =