Вывести второе слово, начинающиеся на К

[ррррр1234]

Дана рандомная строка, в которой слова могут быть разделены несколькими пробелами, в этой строке нужно найти второе слово, начинающиеся на К, а затем его вывести с использованием ф-ий pos и copy.(напишите, пожалуйста, как можно проще)

[Serge_Bliznykov]

https://ideone.com/B4ZyfW

program ideone;
var s : string;
   p:integer;
begin
   s := 'know  as book enot on bork  kort in the kind';
   
   s := ' ' + s + ' '; {добавить пробелы в начало для поиска слов, начинающихся с K
   	                и в конец, чтобы найти конец слова   }
   p := Pos(' k',s);
   if p<>0 then begin
      s := Copy(s,p+1,Length(s)-p);
      p := Pos( ' k', s);
      if p<>0 then begin
         s := Copy(s,p+1,Length(s)-p);
         p := Pos(' ',s); {найти пробел после слова, чтобы выделить само слово}
         WriteLn(Copy(s,1,p-1))
      end;
   end;
   if p=0 then WriteLn('Нет такого слова')
end.

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

Не по теме.
Сергей, а вам потом не становится неприятно оттого, что вы выполнили какую-то работу, помогли, а вам даже спасибо не сказали?

[Serge_Bliznykov]

Сообщение от Вадим Мошев

Сергей, а вам потом не становится неприятно оттого, что вы выполнили какую-то работу, помогли, а вам даже спасибо не сказали?

конечно, неприятно.
но, во-первых, я делаю только то, что мне несложно и недолго (чисто мозги размять)
во-вторых, знаю, что некоторые ходят на форум не каждый день. Поэтому спасибо может через неделю прилететь.
в-третьих, это же форуму полезно. Эта тема теперь не только будет находится через поиск, но и тут будет рабочее решение. Кому-то обязательно пригодится.

p.s. да и я, в принципе, альтруист...

[p51x]

Сообщение от Serge_Bliznykov

в-третьих, это же форуму полезно. Эта тема теперь не только будет находится через поиск, но и тут будет рабочее решение. Кому-то обязательно пригодится.

А куча одинаковых тем с одинаковыми задачами на форуме почкованиями получаются?

[Serge_Bliznykov]

Сообщение от p51x

А куча одинаковых тем с одинаковыми задачами на форуме почкованиями получаются?

Вы хотите сказать, что эта задача уже решена на форуме?
Каюсь, мне было проще (и интереснее) написать за 5 минут код, чем искать его на форуме и проверять имеющиеся там решения.

Больше тем - одинаковых и разных!

[ррррр1234]

Сообщение от Serge_Bliznykov

https://ideone.com/B4ZyfW

program ideone;
var s : string;
   p:integer;
begin
   s := 'know  as book enot on bork  kort in the kind';
   
   s := ' ' + s + ' '; {добавить пробелы в начало для поиска слов, начинающихся с K
   	                и в конец, чтобы найти конец слова   }
   p := Pos(' k',s);
   if p<>0 then begin
      s := Copy(s,p+1,Length(s)-p);
      p := Pos( ' k', s);
      if p<>0 then begin
         s := Copy(s,p+1,Length(s)-p);
         p := Pos(' ',s); {найти пробел после слова, чтобы выделить само слово}
         WriteLn(Copy(s,1,p-1))
      end;
   end;
   if p=0 then WriteLn('Нет такого слова')
end.

Большое спасибо!

[Serge_Bliznykov]

Сообщение от ррррр1234

Большое спасибо!

Пожалуйста!