Заменить все восклицательные знаки на символ звездочки

for i:=length(s) downto 1 do
if s[i]='!' then s[i]:='*'
else if s[i]='.' then insert('..',s,i);

Readln(s);
for i:= 1 to length(s) do begin
if s[i]='!' then s[i]:='*';
if s[i]='.' then s[i]:='...';
end;

Uses crt;
Var
   s : string;
   i : Integer;
begin
ReadLn(s);
for i:=1 to length(s) do
                      begin
                      if (s[i]<>'!') and (s[i]<>'.') then Write(s[i]) else
                      begin
                      if s[i]='!' then Write('*');
                      if s[i]='.' then Write('...');
                      end;
                      end;
end.

Uses crt;
Var
   s,NewS : string;
   i : Integer;
begin
ReadLn(s);
NewS:='';
for i:=1 to length(s) do
                      begin
                      if (s[i]<>'!') and (s[i]<>'.') then NewS:=NewS+S[i] else
                      begin
                      if s[i]='!' then NewS:=NewS+S[i];
                      if s[i]='.' then NewS:=NewS+'...';
                      end;
                      end;
s:=NewS;
                      WriteLn(S);
end.