Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве - Turbo Pascal

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

Задайте n и m 3х4 допустим, получим массив заполненный 1234567, как сделать, чтобы заполнялся 1234321

                    Листинг программы
                
 
                        
                          
                    
var
A:array [1..200,1..200] of integer;
i, j, n, m, k, k1: integer;
begin
writeln('Введите размерность двумерного массива:');
write('n=');
read(n);
write('m=');
read(m);
k:=m;
k1:=k;
m:=2*m-1;
for i:=1 to m do
begin
k:=k1;
  for j:=1 to n do
  begin
    if (j<=k) then
      A[i,j]:=i
    else
    begin
      A[i,j]:=k-1;
      k:=k-1;
    end;
  end;
end;
writeln('Двумерный массив:');
for j:=1 to m do
begin
  for i:=1 to n do
  begin
    write(A[j,i]:3)
  end;
  writeln;
end;
end.

Решение задачи: «Поменять последовательность цифр из, допустим 1234567 в 1234321 в двумерном массиве»

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

var a:array [1..10,1..10] of integer;
    m,n,i,j,k:integer;
begin
repeat
writeln('Введите размерность двумерного массива от 2 до 2 по строкам и столбцам:');
write('Количество строк m=');
readln(m);
write('Количество столбцов n=');
readln(n);
until(m in [2..10])and(n in [1..10]);
if odd(m) then k:=m div 2+1
else k:=m div 2;
writeln('Двумерный массив:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    if i<=k then a[i,j]:=i
    else a[i,j]:=m-i+1;
    write(a[i,j]:3)
   end;
  writeln;
 end;
end.

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

Создается переменная a, которая представляет собой двумерный массив целых чисел размером от 2 до 10 по строкам и столбцам.
Задаются переменные m, n, i, j, k типа integer.
В цикле repeat запрашивается у пользователя размерность двумерного массива.
Проверяется, что введенные значения m и n находятся в допустимом диапазоне от 2 до 10.
Если m является нечетным числом, то значение k вычисляется как m деленное на 2 плюс 1.
Если m является четным числом, то значение k вычисляется как m деленное на 2.
Выводится сообщение с предложением ввести размерность двумерного массива.
Задаются переменные i и j от 1 до m и n соответственно.
В цикле for перебираются строки двумерного массива.
В каждой итерации цикла проверяется условие i <= k.
Если условие истинно, то значение a[i,j] присваивается значению i.
Если условие ложно, то значение a[i,j] присваивается значению m-i+1.
Выводится значение a[i,j] с приставкой 3 (для удобства чтения).
После завершения цикла for выводится символ новой строки.
Цикл repeat завершается только после ввода пользователем корректных значений m и n.
Код выводит на экран двумерный массив a.