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

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.