Работа с текстом Опции

[Patrick]

Дан текст. Если в тексте нет символа "*", то оставить текст без изменений, иначе каждую из малых латинских букв, предшествующих первому вхождению символа "*", заменить на символ "/"

[volvo]

  for i := 1 to pos('*', s) do
    if s[i] in ['a'..'z'] then s[i] := '/';