Заменить в файле все элементы, равные lit, на пробел - Pascal ABC

Формулировка задачи:

Люди добрые помогите пожалуйста) Задан текстовой файл и некоторая литера lit. Написать программу, которая заменяет в файле все элементы, равные lit, на пробел. есть кое-какие наработки,

                    Листинг программы
                
 
                        
                          
                    
Program lab08;
Var f:file of char;
    s:char;
    i:integer;
    m:string;
Begin
    Assign(f,'1.txt');Reset(f);
    While not Eof(f) do
     Begin
     readln(m);
      readln(f,s);
      For i:=1 to Length(s) do
       if s[i]=m then s[i]:=' ';
      write(f,s);
     End;
    Close(f);
End.

Заранее, спасибо!

Решение задачи: «Заменить в файле все элементы, равные lit, на пробел»

Листинг программы

program lab08;
 
var
  f, g: text;
  lit: char;
  i: integer;
  s: string;
 
begin
  write('Lit?');
  readln(lit);
  
  Assign(f, '1.txt');
  Reset(f);
  Assign(g, '2.txt');
  Rewrite(g);
  while not Eof(f) do
  begin
    readln(f, s);
    for i := 1 to Length(s) do
      if s[i] = lit then 
        s[i] := ' ';
    writeln(g, s);
  end;
  Close(f);
  Close(g);  
  erase(f);
  rename(g, '1.txt');  
end.

Объяснение кода листинга программы

Программа Lab08 создает два текстовых файла: 1.txt и 2.txt.
В файле 1.txt заменяются все символы, равные lit, на пробелы.
Программа считывает символ lit из стандартного ввода и сохраняет его в переменной lit.
Затем программа открывает файл 1.txt для чтения и файл 2.txt для записи.
В цикле while программа считывает строку из файла 1.txt, сохраняет ее в переменной s и проверяет каждый символ строки на равенство символу lit.
Если символ равен lit, то он заменяется на пробел.
Затем программа записывает измененную строку в файл 2.txt.
После завершения цикла программа закрывает файлы 1.txt и 2.txt.
Затем программа удаляет файл 1.txt и переименовывает файл 2.txt в 1.txt.