Организовать замену символов в файле

uses crt;
var f,g: text;
    s: string;
    c1,c2: char;
    i,n: integer;
begin
assign(f,'D:\my.txt');
assign(g,'D:\t.txt');
rewrite(f);
write('Сколько строк будем вводить в файл? '); readln(n);
writeln('Введите ',n,' строк в файл? ');
for i:=1 to n do
    begin
    write('-->'); readln(s); writeln(f,s);
    end;
reset(f); rewrite(g);
write('Заменяемый символ: '); readln(c1);
write('Символ для замены: '); readln(c2);
while not (eof(f)) do
      begin
      readln(f,s);
      for i:=1 to length(s) do
          if s[i]=c1 then s[i]:=c2;
      writeln(g,s);
      end;
close(f); close(g);
erase(f);
rename(g,'D:\my.txt');
end.

uses crt;
var f,g: text;                                         //файлы - исодный и временный
    s: string;                                         //строка
    c1,c2: char;                                       //символы
    i,n: integer;                                      //счетчики
begin
assign(f,'D:\my.txt');                                 //ассоциируем переменную с файлом
assign(g,'D:\t.txt');
rewrite(f);                                           //открываем для записи
write('Сколько строк будем вводить в файл? '); readln(n);  //запрашиваем количество строк
writeln('Введите ',n,' строк в файл? ');
for i:=1 to n do                                      //в цикле с параметром запрашиваем и записываем строки в файл
    begin
    write('-->'); readln(s); writeln(f,s);
    end;
reset(f); rewrite(g);                                 //открываем для чтения, второй файл - для записи
write('Заменяемый символ: '); readln(c1);             //запрашиваем символ, который надо заменять
write('Символ для замены: '); readln(c2);             //запрашиваем символ, которым будем заменять
while not (eof(f)) do                                 //в цикле с предусловием
      begin
      readln(f,s);                                    //считываем строку из файла
      for i:=1 to length(s) do                        //в цикле с параметром перебираем сиволы от педвого до последнего символа
          if s[i]=c1 then s[i]:=c2;                   //если символ совпадает с заменяемым, меняем на заданный
      writeln(g,s);                                   //записываем во временный файл
      end;
close(f); close(g);                                   //закрываем файлы
erase(f);                                             //удаляем исходный
rename(g,'D:\my.txt');                                //переименовываем временный
end.