Слова имеют чётную длину

[Николая Ленин]

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

[alex_fcsm]

Таких задач здесь море. Свои наработки есть? К чему вас подталкивать?

[_-Re@l-_]

Ну...Можно так:

var
     s:String;
     word:String;
     isWord:Boolean;
     I,N:Integer;
begin
        readln(S);
        word:='';
        for I:=1 To Length(S) Do
        Begin
                If S[i] in ['a'..'z'] then
                begin
                        If not isWord Then
                        Begin
                                isWord:=True;
                        End;
                        word:=word+S[i];
                end
                else
                begin
                        if (Length(Word) mod 2 = 0) and
                          (Word[1] = 'x') Then  Inc(N);
                end;
           end;
           writeln(n);
           readln;
end.

Примерно так, за работоспособность не ручаюсь, не проверял...

[SERG1980]

Как разбить предложение на слова обсуждалось очень много раз, это поиском найдите, ну а дальше сравнивайте эти слова с вашим условием
например

....
s:='привет';
if (not odd(Length(s))) and (s[1] = 'п') then showmessge(s+' подходит под условие');