задача на (обработку текстовой информации в паскале)

[Julichka1k]

Задан текст. Если в тексте нет символа *,то оставить этот текст без изменения,иначе каждую из малых латинских букв предшествующих первому вхождению символа *,заменить на цифру 5.

помогите с блок-схемой

[Hacker19_90]

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