Создать файл и записать туда таблицы - Pascal

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

Ребятки, вот код ///////////////////////////////

                    Листинг программы
                
 
                        
                          
                    
program Quest1;
var a,x,y,xn,xs,xk:real;
begin
writeln('xn,xk,xs');
readln(xn,xk,xs);
writeln('       xn        y');
while xn<=xk do
begin
if xn<=1 then
y:=((a*xn)*(a*xn)*(a*xn)-1)/((a*xn)*(a*xn)+2) else begin
y:=(a*xn-1)*(a*xn-1);
end;
writeln(xn:10:1,y:10:1);
xn:=xn+xs;
end;
readln;
end.

/////////////////////// Нужно создать файл и записать туда таблицы. Как это сделать для нее?

Решение задачи: «Создать файл и записать туда таблицы»

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

program Quest1;
 
var
  a, x, y, xn, xs, xk: real;
  f: text;                               // текстовый файл
 
begin
  assign(f, 'c:\ta.txt');       // создаём файл с именем "ta", расположены на диске с (путь можно указывать любой, или вовсе не указывать для примера)
  rewrite(f);              // открываем этот файл для записи
  writeln('xn,xk,xs');
  readln(xn, xk, xs);
  writeln('       xn        y');
  writeln(f, '       xn        y');       // записываем это в файл
  while xn <= xk do
  begin
    if xn <= 1 then
      y := ((a * xn) * (a * xn) * (a * xn) - 1) / ((a * xn) * (a * xn) + 2) else begin
      y := (a * xn - 1) * (a * xn - 1);
    end;
    writeln(xn:10:1, y:10:1);
    writeln(f, xn:10:1, y:10:1);           // записываем  это тоже в файл
    xn := xn + xs;
  end;
  close(f);     // закрываем файл
end.

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

Создаем переменные:
- a - вещественного типа (для хранения числа с плавающей запятой)
- x, y, xn, xs, xk - все также вещественного типа для хранения значений переменных в программе
Создаем файл с именем ta на диске с:
- f - текстовый файл, который мы будем использовать для записи результатов
Открываем файл ta для записи
Выводим на экран строку xn,xk,xs
Считываем значения переменных xn, xk, xs с клавиатуры
Выводим на экран строку xn y
- Записываем строку xn y в файл
В цикле выполняем следующие действия:
- Если xn меньше или равно 1, то вычисляем y по формуле ((a xn)^3 - 1) / ((a xn)^2 + 2)
- В противном случае вычисляем y по формуле (a * xn - 1)^2
- Выводим на экран значения xn и y с заданным форматированием
- Записываем значения xn и y в файл с заданным форматированием
- Увеличиваем значение xn на xs
Закрываем файл

Программа создает файл ta.txt, записывает в него результаты вычислений и закрывает файл.