Создание файла в текущем каталоге - PascalABC.NET

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

Напишите программу создание файла в текущем каталоге и записи в него строки, содержащей ФИО вашего классного руководителя. Закройте файл. Добавьте в созданный вами файл информацию о том, какой предмет преподает ваш классный руководитель

Решение задачи: «Создание файла в текущем каталоге»

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

var f:text;
begin
assign(f,'zapii.txt');
rewrite(f);
writeln(f,'Петрова Мария Ивановна');
append(f);
writeln(f,'Литература');
close(f);
end.

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

Создается переменная типа text с именем f.
Значение переменной f присваивается имя файла zapii.txt.
Файл с именем zapii.txt перезаписывается.
В файл zapii.txt записывается строка Петрова Мария Ивановна.
Файл zapii.txt открывается для добавления информации в конец файла.
В файл zapii.txt записывается строка Литература.
Файл zapii.txt закрывается.