Преобразуйте текст по следующему правилу: если нет символа ‘*’, то оставить без изменений, иначе, заменить каждый символ, встречающийся после каждого символа ‘*’, на ‘-‘.- Pascal(Паскаль)

var
i:integer;
s:string;
isFound:boolean;
begin
readln(s);
isFound := false;
for i:=1 to Length(s) do
  if isFound then begin
     s[i] := '-';
     isFound := false;
  end
  else 
     if s[i] = '*' then isFound := true;

 writeln(s);
end.

var
i:integer;
s:string;
begin
readln(s);
i:=1;
while i<Length(s) do
  begin
    if s[i]='*' 
      then
        begin
          s[i+1]:='-';
          Inc(i,2)
        end
     else Inc(i)
  end;

 writeln(s);
end.