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

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.