В заданной программе надо расположить исходный и преобразованный массив - Turbo Pascal

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

В заданной программе надо расположить исходный и преобразованный массив с переставленными столбцами рядом.

uses Crt;
const N = 5; M = 6;
Var A: array[1..N, 1..M] of integer;
            i, j: integer;
begin
ClrScr;
    for i:= 1 to N-1 do begin
       for j:= 1 to M-1 do
        write(i * 2 + j + 1:3);
        writeln;  writeln;
      end;
           writeln;
     for i:= 0 to 4 do begin
      for j:= 6 downto 1 do
GoToXY(35 + j * 4 +i * 2 + 1:3);
      write(i * 2 + 1 + j – 1:3);
       writeln;  writeln;
     end;
   readln
end.

        На выходе имеем:
  2     3     4     5     6                                                1
  4     5     6     7     8                                                3
  6     7     8     9    10                                               5
  8     9    10   11   12                                               7                                               
 10   11   12   13   14                                               9

Ну почему не печатается второй массив рядом? Без строки координат GoToXY(………) оба массива печатаются в столбик без всяких осложнений.

Решение задачи: «В заданной программе надо расположить исходный и преобразованный массив»

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

uses Crt;
const n=5;
      m=6;
var a:array[1..n,1..m] of byte;
    i,j:byte;
begin
for i:=1 to n-1 do
 begin
  for j:=1 to m-1 do
  write(i*2+j+1:3);
  writeln;
 end;
for i:=0 to n-1 do
 begin
  gotoXY(n*3+4,i+1);
  for j:=m downto 1 do
  write(i*2+j:3);
  writeln;
 end;
 readln
end.

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

В этом коде используется язык программирования Turbo Pascal. Программа работает с массивом a, который представляет собой двумерный массив размером n на m (где n=5, m=6). Сначала программа выводит значения исходного массива a по строкам, пропуская последнюю строку (поскольку индексация в Turbo Pascal начинается с 1, а не с 0). Затем программа выводит значения преобразованного массива a по столбцам, начиная с последнего столбца и заканчивая первым. После этого программа запрашивает ввод данных, но в данном коде ввод не используется, поэтому он просто игнорируется.