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

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