Заменить первые 3 символа слов, имеющих выбранную длину, на символ * Опции

[Grief]

Заменить первые 3 символа слов, имеющих выбранную длину, на символ * .
Длинна слов 6-8
Количество слов 10

По найденным урокам не особо смог ориентироваться, нужен наглядный пример
Буду признателен за помощь... Спасибо заранее.

[Lapp]

нужен наглядный пример

Сделать такую замену в слове w можно примерно так:

    Delete(w,3,1);
    Insert('*',w,1)

Если у тебя массив из 10 слов - пройдись по нему в цикле for. Если слова в тексте - нужна функция для их поиска.

[Grief]

У меня вот такое получилось, но это не правильно и слишком замудренно, может кто-то по другому, более проще что ли представить может?

uses crt;
const razd:set of char=[' ','.',',',':',';','!'];
var st,buf:string;
    l:integer;
begin
 clrscr;
 write('Длина -> ');
 readln(l);
 write('Строка -> ');
 readln(st);
 
 repeat
  if (st[1] in razd) or (length(st)=0) then while st[1] in razd do delete(st,1,1)
  else
  begin
   while (not (st[1] in razd)) and (length(st)>0) do
   begin
    buf:=buf+st[1];
    delete(st,1,1);
   end;
 
  if length(buf)=l then
  begin
   buf[1]:='*';
   buf[2]:='*';
   buf[3]:='*';
   write(buf,' ');
  end; 
  buf:='';
 
 end;
 until (length(st)=0) and (length(buf)=0);
 readln;
end.