Почему файл не сохраняет полученную информацию?

const
  t = 100;
type
  mas = array[1..t] of string;
var
  f, q: text;
  str: string;
  i, count, m, h, x, n, j, d: integer;
  a: mas;
 
procedure QuickSort(L, R: Integer );{ Быстрая сортировка массива A[] }
var
  k, g: integer;
  z, y: string;
begin
  k := l; g := r;
  z := a[(l + r) div 2];
  repeat
    while (A[k] < z) do inc(k);
    while (z < A[g]) do dec(g);
    if (k <= g ) then
    begin
      y := A[k]; a[k] := a[g]; a[g] := y;
      inc(k); dec(g);
    end;
  until (k > g);
  if (l < g) then QuickSort(l, g);
  if (k < r) then QuickSort(k, r);
end;
 
begin
  Assign(f, 'file1.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}
  Rewrite(f);{открываем файл для записи}
  writeln('введите количество слов');
  Readln(m); 
  writeln('введите слова');{определим количество вводимых слов}
  begin
    readln(str); 
    i := length(str);
    if i > 0 then begin
      count := 1;
      while i > 0 do 
      begin
        if str[i] = ' ' then
          count := count + 1;
        i := i - 1;
      end;
    end
    else
      count := 0;
    if count = m then writeln(f, str)
    else writeln('неверное количество слов');{записываем последовательно строки в файл}
  end;
  close(f); {заканчиваем работу с первым файлом, теперь на диске существует файл с именем file1.txt, содержащий введенные нами строки. На этом программу можно закончить, работу с файлом можно продолжить в другой программе, в другое время, но мы продолжим}
  str := ' ' + str + ' ';
  x := 1; 
  n := 0;
  for h := 1 to length(str) - 1 do
    if (str[h] = ' ') and (str[h + 1] <> ' ') then
    begin
      j := h;
      repeat
        j := j + 1;
        n := n + 1;
      until str[j] = ' ';
      a[x] := copy(str, h + 1, n);
      x := x + 1; n := 0;
    end;
  QuickSort( 1, m ); { на входе: левая и правая граница сортировки } 
  Assign(q, 'file.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}
  Rewrite(q);{открываем файл для записи}
  writeln('после сортировки:');
  for d := m downto 1 do write(a[d]);
  close(q);
  
end.

for d := m downto 1 do write(a[d]);

for d := m downto 1 do write(q,a[d]);

  Assign(f, 'd:\data\file1.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}

  Assign(q, 'd:\data\file.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}

  Assign(f, 'd:\file1.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}

  Assign(q, 'd:\file.txt'); {устанавливаем связь файловой переменной с физическим файлом на диске}