Почему не создается файл, в который выводится информация?

program Lab10;
 
const
  nmax = 20;
  mmax = 20;
 
type
  matrix = array[1..mmax, 1..nmax] of real;
  
var
  m: integer;         // Число строки матрицы А
  n: integer;         // Число столбцов матрицы А
  A: matrix;          // Вещественнозначная матрица
  f: TextFile;        // Файловая переменная для связи с текстовым файлом
  x: real;            // Произвольное вещественное число, введенное с клавиатуры.
  i, j: integer;      // Счетчики итераций цикла 
  k: integer;         // Число чисел в стобце, больших предыдущего
  S: integer;         // Индекс столбцов при проверке матрицы с конца
  q: integer;         // Число сравнений в каждом столбце, при которых предыдущий элемент столбца меньше настоящего
  R: integer;         // Индекс строк при проверке матрицы с конца
  W: integer;         // Номер столбца, в котором выполняется условие задачи
  c: real;            // Переменная, использующася при сравнении
 
begin
  if(ParamCount < 2) then
    writeln('Недостаточно параметров!')
  else
    begin
      if not(FileExists(ParamStr(1))) then
        writeln('Невозможно открыть файл ''', ParamStr(1), ''' для чтения')
      else if(FileExists(ParamStr(1))) then
        begin
          write('Введите число строк в матрице: ');
          readln(m);
          while((m > mmax) or (m <= 0)) do
            begin
              write('Введите число строк в матрице: ');
              readln(m);
            end;
          write('Введите число столбцов в матрице: ');
          readln(n);
          while((n > nmax) or (n <= 0)) do
            begin
              write('Введите число столбцов в матрице: ');
              readln(n);
            end;
          k := 0;
          Assign(f, ParamStr(1));
          Rewrite(f);
          writeln('Введите числа в файл: ');
          for i := 1 to m do
            begin
              for j := 1 to n do
                begin
                  read(x);
                  write(f, x, '   ');
                end;
              writeln(f);
            end;
          CloseFile(f);
          Reset(f);
          writeln('Матрица заполняется числами из файла... ');
          for i := 1 to m do
            begin
              for j := 1 to n do
                read(f, A[i, j]);
            end;
          CloseFile(f);
          S := n;                       // Другой индекс столбцов
          R := 2;                       // Другой нидекс строки
          q := 0;
          W := 0;
          while((q < m - 1) and (S >= 1)) do
            begin
              c := A[S, 1];
              while(((R <= m) and (A[S, R - 1] < A[S, R])) or (k < m - 1)) do
                begin
                  if(c < A[S, R]) then
                    begin
                      k += 1;
                      c := A[S, R];
                      R += 1;
                    end;
                end;
              q := k;
              if(q = m - 1) then
                W := S;
              k := 0;
              R := 2;
              S -= 1;
            end;
          Assign(f, ParamStr(2));
          Rewrite(f);
          if(W = 0) then
            writeln(f, 'В матрице нет такого стобца.')
          else 
            writeln(f, 'Номер столбца, удовлетворяющего условию задачи, равен: ', W);
          CloseFile(f);
        end;
    end;
end.