Инвертирование файла - Pascal ABC

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

Дан текстовый файл в виде последовательности, состоящей из цифр "1" и "0". Инвертируйте файл, т. е. Перепишите 1 на 0 и наоборот. Результат запишите в новый файл.

Решение задачи: «Инвертирование файла»

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

var f,g:text;
    a:char; //цифры как символы '0','1'
begin
assign(f,'1.txt'); //исходный файл в папке с программой
reset(f);
assign(g,'2.txt');
rewrite(g);
while not seekeof(f) do
 begin
  read(f,a);
  a:=chr(1-(ord(a)-48)+48);
  write(g,a);
 end;
close(f);
close(g);
end.

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

Объявлены две переменные: f и g типа text.
Переменная a типа char инициализируется значением '0'.
Файл f открывается для чтения с помощью функции assign, а файл g открывается для записи с помощью функции rewrite.
Используется цикл while для чтения исходного файла до конца.
В каждой итерации цикла считывается один символ из файла f и сохраняется в переменной a.
Используется функция ord для получения числового значения символа, и вычисляется новое значение символа, инвертируя его.
Используется функция chr для преобразования числового значения обратно в символ.
Новый символ записывается в файл g.
После окончания чтения исходного файла, файл f закрывается, а файл g сохраняется.