[Енот]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12

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