Необходима помощь в создании программки

[Cardinal]

есть такое задание - Дана строка: "dfh hkjh hjhlhl nbmn n mn dfh". Вывести слова, начинающиеся символом 'd', если такого нет, вывести "no".
Не могу никак понять как сие сделать, в частности, как выделить слова из строки.

[capta1n]

program capta1n;
uses crt;
const
 str1 = 'dfh hkjh hjhlhl nbmn n mn dfh';
var
 str2 : string;
 k : byte;
begin
  str2:=str1+' ';
  while str2<>'' do
  begin
    k:=pos(' ',str2);
    if k<>1 then
     if str2[1]='d' then writeln (copy(str2,1,k-1));
    textcolor (k mod 15);
    delete (str2,1,k)
  end;
  readln
end.

[Cardinal]

capta1n - благодарю за код. все норм. разобрался как работает. хотя я почему-то предполагал по-другому )

[capta1n]

да, пожалуйста, всегда рад помочь

[Cardinal]

можешь еще глянуть соседнюю темку? где вторую надо смастерить )