Создать файл и записать в него числа - Pascal

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

program FibonacciNumbers;
var
    a, b: longint;
    i: byte;
    f: text;
begin
    assign(f, 'D:\Pascal\FibonacciNumbers\FibonacciNumbers.txt');
    rewrite(f); //открываем файл в режиме записи
    a:=1;
    write(f, a);
    b:=1;
    write(f, b);
    for i:=1 to 9 do
    begin
        a:=a+b;
        write(f, a);
        b:=a+b;
        write(f, b);
    end;
    close(f);
end.

По задумке, программа должна создать файл, в который запишет первые 20 чисел последовательности чисел Фибоначчи. Однако, при запуске файл не создаётся. Если же создать пустой файл с именем FibonacciNumbers.txt, то, после запуска программы, в него ничего не запишется.

Решение задачи: «Создать файл и записать в него числа»

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

program FibonacciNumbers;
 
var
  a, b: longint;
  i: byte;
  f: text;
 
begin
  assign(f, 'FibonacciNumbers.txt');
  rewrite(f); //открываем файл в режиме записи
  a := 1;
  write(f, a,' ');
  b := 1;
  write(f, b,' ');
  for i := 1 to 9 do
  begin
    a := a + b;
    write(f, a,' ');
    b := a + b;
    write(f, b,' ');
  end;
  close(f);
end.

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

Создаем программу с названием FibonacciNumbers
В программе объявлены следующие переменные: a, b - типы данных longint; i - тип данных byte; f - тип данных text;
Присваиваем переменной f значение 'FibonacciNumbers.txt' - имя файла, в который будем записывать числа;
Открываем файл в режиме записи с помощью функции assign;
Открываем файл в режиме записи с помощью функции rewrite;
Присваиваем переменной a значение 1;
Записываем значение переменной a в файл с помощью функции write;
Присваиваем переменной b значение 1;
Записываем значение переменной b в файл с помощью функции write;
Запускаем цикл for, который выполняется 9 раз;
Внутри цикла выполняем следующие действия:
- присваиваем переменной a значение суммы переменных a и b;
- записываем значение переменной a в файл с помощью функции write;
- присваиваем переменной b значение суммы переменных a и b;
- записываем значение переменной b в файл с помощью функции write;
Закрываем файл с помощью функции close;
Конец программы.