Получить файл g, образованный из файла f заменой всех его прописных букв одноименными строчными - PascalABC.NET

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

1. Дан символьный файл f. Получить файл g, образованный из файла f заменой всех его прописных (больших) букв одноименными строчными (малыми).

Решение задачи: «Получить файл g, образованный из файла f заменой всех его прописных букв одноименными строчными»

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

var
  f, g: text;
  c: char;
 
begin
  //в папке с программой должен быть файл "input.txt"
  if FileExists('input.txt') then
  begin
    Assign(f, 'input.txt');
    Reset(f);
    Assign(g, 'output.txt');
    Rewrite(g);
    while not Eof(f) do
    begin
      Read(f, c);
      Write(g, LowCase(c));
    end;
    Close(f);
    Close(g);
    Writeln('Готово');
  end
  else
    Writeln('Файл не найден');
end.

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

Создаются две переменные: f и g типа text, которые будут использоваться для работы с файлами
Создается переменная c типа char, которая будет использоваться для чтения символов из файла
Проверяется наличие файла input.txt в текущей директории с помощью функции FileExists
Если файл input.txt существует, то программа продолжает выполнение, иначе выводится сообщение об ошибке
Файл input.txt открывается для чтения с помощью функции Assign и Reset
Файл output.txt создается для записи результата с помощью функции Assign и Rewrite
В цикле while не Eof(f) выполняется чтение символа из файла input.txt с помощью функции Read и запись этого символа в файл output.txt в нижнем регистре с помощью функции Write и LowCase
После окончания чтения файла input.txt файл output.txt закрывается с помощью функции Close
Выводится сообщение Готово при успешном выполнении программы
Если файл input.txt не найден, то выводится сообщение об ошибке