Помогите написать программу на паскале:

 program SaveCharsBeforeA; 
 
var 
  f, g: text; 
  c, nextC: char; 
  fileName, newFileName: string; 
 
begin 
  fileName := 'f.txt'; // Имя исходного файла 
  newFileName := 'g.txt'; // Имя нового файла 
 
  assign(f, fileName); 
  reset(f); // Открыть исходный файл для чтения 
  assign(g, newFileName); 
  rewrite(g); // Открыть новый файл для записи 
 
  while not eof(f) do 
  begin 
    read(f, c); // Читать символ из файла f 
    if not eof(f) then 
    begin 
      read(f, nextC); // Читать следующий символ из файла f 
      if nextC = 'a' then 
        write(g, c); // Записать символ в файл g, если следующий символ - 'a' 
    end; 
  end; 
 
  close(f); // Закрыть исходный файл 
  close(g); // Закрыть новый файл 
end. 
 

Эта программа читает символы из файла f.txt и записывает в файл g.txt те символы, перед которыми следует буква “a”. Убедитесь, что файл f.txt существует в той же директории, что и программа.