[Енот]

Здесь строка это последовательность символов

Код:

...
var s:string;
     f:boolean;
     i:integer;
...
f:=false;
 for i:=1 to length(s) do  //от 1 до кол-ва символов в строке
  begin                         //Делаем:
   if f then s[i]:='-';        //Если "i"-й символ строки равен "*" то со  
   if s[i]='*' then f:=true;//следующего символа мы будем заменять на "-"
  end;
...