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

[Julichka1k]

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

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

[Mad_Cat]

var s:string;i,k:integer;
begin
readln(s);
k:=pos('*',s);
for i:=1 to k-1do
if s[i] in['a'..'z'] then s[i]:='5';
writeln(s);
end.