Дана строка символов. Найти слова, которые имеют четную длину и начинаются с заданного символа. На паскале!

[marinadanilova]

Дана строка символов. Найти слова, которые имеют четную длину и начинаются с заданного символа. На паскале!

[min@y™]

Готов сделать. Не за деньги.

[Вадим Мошев]

Готов сделать. За небольшое денежное вознаграждение, а не за то, что предлагает min@y™

ссылка у меня в подписи

[min@y™]

а не за то, что предлагает min@y™

Фу, чорный пиар детектед! Как не стыдно, аяяй!
Я ничего ещё и не просил взамен, я работаю иначе.

[Arigato]

Как-то так:

const
  separators = [' ',',','.'];
  
var
  str,wrd: string;
  ch: char;
  i, len: integer;
  
begin
  readln(str);
  readln(ch);
  wrd:='';
  str:=str+' ';
  for i:=1 to length(str) do begin
    if str[i] in separators then begin
      len:=length(wrd);
      if (len>0) and not odd(len) and (wrd[1]=ch) then
        writeln(wrd);
      wrd:='';
    end else
      wrd:=wrd+str[i];
  end;
end.

[Stilet]

Господа самураи, пока вы боролись за пиастры Аригато-сан вас сделал десу

[Serge_Bliznykov]

Arigato, красиво!

[Вадим Мошев]

Да, непплохой код. Правда, если будет введена строка длинной 255 символов, то...

[Arigato]

Если в Делфи откомпилировать, то ничего страшного.