Дан текстовый файл f. Переписать компоненты файла f в файл g, заменив каждый восклицательный знак точкой — Pascal(Паскаль)

var
f,g:text;
c:char;
begin
  assign(f,'c:\output.txt');
  assign(g,'c:\input.txt');
  reset(f);
  rewrite(g);
    while not EOF(f) do
      begin
        read(f,c);
          if c='!' then
            write(g,'.')
          else  write(g,c);
      end;
   close(f);
   close(g);
end.