В заданной матрице поменять местами последний столбец и побочную диагональ - PascalABC.NET

В заданной матрице поменять местами последний столбец и побочную диагональ.

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

  for Row := 1 to N do
    Swap(A[Row, N], A[Row, N + 1 - Row]);

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

Задана матрица A размером NxN
Задано значение N, размер матрицы
В цикле for проходят по всем строкам матрицы от 1 до N
В каждой строке меняются местами последний столбец и побочная диагональ (включая основной диагональный элемент)
Функция Swap меняет местами два элемента матрицы
Первый аргумент функции Swap — A[Row, N], это элемент в последнем столбце и побочной диагонали
Второй аргумент функции Swap — A[Row, N + 1 - Row], это элемент на позиции побочной диагонали и в последнем столбце (включая основной диагональный элемент)
После выполнения всех итераций циклов, последний столбец и побочная диагональ поменяются местами