[EVOR]

Преобразовать последовательность S1,...,Sn: если нет символа *, то оставить её без изменения, иначе заменить каждый символ, встречающийся после первого вхождения символа * на символ -.
Уже час сижу, ничего не получается.

[Енот]

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

Код:

...
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;
...