Дан текст. Если в тексте нет символа «*», то оставить этот текст без изменения, иначе каждую из малых латинских букв, предшествующих первому вхождению символа «*», заменить на цифру «5» — Pascal(Паскаль)

uses crt;
var s:string;
    i,p:byte;
begin
clrscr;
writeln('Введите текст, содержащий символы *');
readln(s);
p:=pos('*',s);
if p=0 then writeln('Символа * нет, строка не изменена')
else if p=1 then writeln('Символ * первый, строка не изменена')
else
 for i:=1 to p-1 do
 if s[i] in ['a'..'z'] then s[i]:='5';
write(s);
readln
end.