Вывод текста из графического режима в файл - Turbo Pascal

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

Всем привет, как сделать чтобы текст из графического режима сохранялся в файле? Вот пример:

uses graph;
 
var gd, gm:integer;
 
begin
  initgraph(gd,gm,'');
  outtextXY(10,10,'123123123');
  readln;
  closegraph;
end.

Решение задачи: «Вывод текста из графического режима в файл»

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

uses graph;
var gd, gm:integer;
    s:string;
    f:text;
begin
  initgraph(gd,gm,'');
  s:='123123123';
  outtextXY(10,10,s);
  assign(f,'1.txt');
  rewrite(f);
  writeln(f,s);
  close(f);
  readln;
  closegraph;
end.

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

uses graph; — Импортируется модуль graph, который содержит функции для работы с графическим режимом.
var gd, gm: integer; — Объявляются две переменные типа integer, которые будут использоваться для установки параметров графического режима.
s: string; — Объявляется строковая переменная, которая будет использоваться для вывода текста на экран.
f: text; — Объявляется переменная типа text, которая будет использоваться для работы с файлом.
begin — Начало выполнения программы.
initgraph(gd, gm, ''); — Устанавливаются параметры графического режима, в данном случае, указывается пустая строка в качестве имени драйвера.
s := '123123123'; — Строковой переменной s присваивается значение '123123123'.
outtextXY(10, 10, s); — Выводится текст, находящийся в переменной s, на экран, с координатами X=10 и Y=10.
assign(f, '1.txt'); — Переменной f присваивается имя файла '1.txt'.
rewrite(f); — Файл с указанным именем открывается для записи.
writeln(f, s); — В файл записывается текст, находящийся в переменной s.
close(f); — Файл закрывается.
readln; — Ожидается ввод данных с клавиатуры.
closegraph; — Графический режим закрывается.
end. — Конец выполнения программы.
Значения переменных gd и gm не используются в коде, поэтому их значения не имеют значения.
Значение переменной s не используется после того, как оно было записано в файл, поэтому его значение также не имеет значения.
Значение переменной f не используется после того, как файл был закрыт, поэтому его значение также не имеет значения.
В коде нет никаких проверок на ошибки, которые могут возникнуть при работе с файлом или графическим режимом.
В коде нет никаких других действий, кроме вывода текста на экран и записи его в файл.