Помогите сделать задачу с текстом.

[santalix]

Удалить из текста все четные по счету слова. Слова разделяются 1 или несколькими пробелами.

[AiK]

Код: Выделить всё

program test;
var S, word:string;
    i,k:integer;
    oddFlag: boolean;
begin
    S:='word1    word2 word3      word4 word5 word6';
    writeln(S);
    oddFlag := true; word:='';  k:=1;
    for i:=1 to length(S) do 
    begin
        setLength(word,k);
        word[k]:= S[i];
        k:=k+1;
        if (S[i] = ' ')  or (i = length(S)) then 
        begin
            if (word <> ' ') then 
                begin
                    if (oddFlag)  then writeln(word);
                    oddFlag:= not oddFlag;      
                end;
             word:=' ';        
             k:=1;
        end;
    end;
end.

[santalix]

Огромное спасибо!