Создать папку на диске D с текстовым документом. - Pascal ABC

Как создать папку на диске D с текстовым документов, который содержит текст "Аня, привет"?

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

uses Utils;
var
  f: text;
begin
  CreateDir('D:\Аня');
  Assign(f, 'D:\Аня\1.txt');
  Rewrite(f);
  Writeln(f,'Аня, привет');
  Close(f);
end.

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

В начале объявляется использование пакета Utils.
Затем объявляется переменная f типа text, которая будет использоваться для работы с текстом.
Создается директория 'D:\Аня' с помощью функции CreateDir.
Переменная f устанавливается в 'D:\Аня\1.txt' с помощью функции Assign.
Функция Rewrite используется для очистки файла '1.txt'.
С помощью функции Writeln в файл '1.txt' записывается строка 'Аня, привет'.
Файл '1.txt' закрывается с помощью функции Close.