Переписать компоненты файла f в файл g, заменив при каждый восклицательный знак точкой - Free Pascal

program pr;
var
  f, g: file of char;
  i, n: integer;
  c: char;
begin
  assign(f, 'c:\fi.txt');
  assign(g, 'c:\se.txt');
  rewrite(g);
  rewrite(f);
  writeln('введите количетсов символов');
  readln(n);
  i := 1;
  while i <= n do
  begin
    readln(c);
    write(f, c);
    i := i + 1;
  end;
  close(f);
  reset(f);
  while not eof(f) do
  begin
    inc(i);
    read(f, c);
    if c = '!' then
    begin
      c := '.';
    end;
    write(g, c);
  end;
  close(f);
  close(g);
  writeln;
  writeln('Файл g');
  reset(g);
  while not eof(g) do
  begin
    inc(i);
    read(g, c);
    write(c);
  end;
  close(g);
end.