Массив: Получить матрицу Y перестановкой столбцов – первого с последним, второго с предпоследним и т. д. - Pascal

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

Привет! Помогите, пожалуйста, решить задачу:

Дана действительная матрица X размера 6Х9. Найти матрицу Y, получающуюся из данной перестановкой столбцов – первого с последним, второго с предпоследним и т. д.

Не получается решить, в итоге выдаёт одни лишь нули...

Решение задачи: «Массив: Получить матрицу Y перестановкой столбцов – первого с последним, второго с предпоследним и т. д.»

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

  k:=n;
  for j:=1 to n do begin
    for i:=1 to m do y[i,j]:=x[i,k]; Dec(k);
  end;

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

Создается переменная k и ей присваивается значение переменной n.
Запускается внешний цикл для переменной j от 1 до n.
Запускается вложенный цикл для переменной i от 1 до m.
В ячейку матрицы y с координатами [i, j] записывается значение из ячейки матрицы x с координатами [i, k].
Переменная k уменьшается на 1 (Dec(k)).
Процесс повторяется для всех элементов матрицы y в соответствии с условиями задачи.