Из заданной строки получить новую заменив в ней все симво¬лы после первой звездочки (*) знаком "-" (если в строке нет звездочек оставить без изменения). распечатать полученную строку. на паскале

Var
  S: string;
  i: byte;
  tmp: boolean;
begin
  write('Введите строку: '); readln(S);
  for i := 1 to Length(S) do
  begin
    if ((S[i] = '*') and (tmp = false)) then
    begin
      S[i] := '-';
      tmp := true;
    end;
    if tmp = true then S[i] := '-';
  end;
  writeln(S);
end.