поиск слова по его части

[Рустам]

Здрасьте!
Подскажите как мне найти слово (слова) в тексте содержащие определенные символы (порядок символов)???
Напр:
Искать по 'вал' в тексте 'валом на чердаке валенков завалялось'
результат
'валом'
'валенков'
'завалялось'

вроде того...

[nuan]

Для начала находим длину слова в котором будем искать...
Начинаем цикл , и пытаемся брать символы и сравнивать . Например если слово "завалялось" ищем "вал".
Итак len = 10 , len_sl = 3
подставляем и сравниваем:
Берем по 3 символа : зав!=вал
ава!=вал
вал=вал.
вот и нашли )
На простом Си все пишется очень просто.

[capta1n]

program xd;
var
 s,sub,sq : string;
 m,k : byte;
begin
  write ('s= '); readln(s);
  s:=s+' ';
  write ('sub= '); readln(sub);
  repeat
    m:=pos(' ',s);
    sq:=copy(s,1,m-1);
    k:=pos(sub,sq);
    if k<>0 then writeln (sq);
    delete (s,1,m);
  until m=0;
  readln
end.

[Рустам]

принцип ясен - Будем реализовывать!!!
Спасибо!!!