Запись результатов работы программы в файл - Pascal

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

как сделать чтобы результат записывался в файл?
Program writefile;
var x,y:real;
st:string;
f:text;
begin
assign(f,'xxx.txt');
reset(f);
x:=0;
while x<=1 do
begin
y:=sqr(x+1);
write(y:0:2);
x:=x+0.1;
end;
close(f);
readln
end.

Решение задачи: «Запись результатов работы программы в файл»

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

uses crt,complexn;
var
 f2:text;
begin
clrscr;
 writef(f2);
 readf(f2);
readln;
end.

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

В начале кода используется ключевое слово uses, которое указывает на использование определенных функций или библиотек в программе. В данном случае используется функция crt и библиотека complexn.
Далее следует переменная f2, которая является текстовым файлом. Она инициализируется значением text.
Затем идет команда clrscr, которая очищает экран.
После этого выполняется команда writef(f2), которая записывает значение переменной f2 в файл.
Затем идет команда readf(f2), которая считывает значение переменной f2 из файла.
Наконец, команда readln считывает символ новой строки из файла, завершая чтение.
Код заканчивается точкой end.