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

Извиняюсь, просто торопился, никак не могу её выполнить.
Пожалуста

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

помагите пожалуйста написать код Задача:нахождение в тексте слов с удвоенной согласной
текст вводится с экрана буквы могут быть как руские так и англиские вперемешку