Отредактировать заданное предложение, удаляя из него все слова с чётными номерами.

[HECKLY]

Отредактировать заданное предложение, удаляя из него все слова с чётными номерами.

[__STDC__]

Вам тоже добрый вечер. У нас хорошо. Сами как? Задачку конечно сделаем, нам несложно. Вы отдыхайте пока, пивка попейте, с друзьями пообщайтесь.

***
подразумевается, что строка заканчивается пробелом.. также пробел является разделителем между словами..

var
	s,tmp:string;
	i,n:byte;
begin
	n := 1;
	readln(s);
	for i:=1 to length(s) do 
		if (n = 1) then begin
			tmp := tmp + copy(s,1,pos(' ',s));
			delete(s,1,pos(' ',s));
			n := 0;
		end else begin
			delete(s,1,pos(' ',s));
			n := 1;
		end;
	writeln(tmp);
	readln;
end.

[HECKLY]

Спасибо!!!!!!!!!!!!!!