Pascal. Дана строка. Заменить каждый символ,встречающийся после первого вхождения '*' на '_'.

i:integer;s:string;for i:=1 to length(s) dobeginif s[i]='*' then s[i]:='_';end;вроде всё, программу сам оформляй