Дан массив z(3,4).поменять в массиве второй столбец с четвёртым и вывести исходный массив и преобразованный в виде матриц

Const     n = 3;     m = 4; var     z: array[1..n,1..m] of integer;     i,j,b: integer; begin randomize; writeln('исходный массив: '); for i: = 1 to n do       begin       for j: = 1 to m do               begin               z[i,j]: =random(21)-10;               write(z[i,j]: 3,' ')               end;       writeln;       end; writeln; writeln('второй и четвёртый столбец переставлены: '); for i: = 1 to n do       begin       b: =z[i,2];       z[i,2]: =z[i,4];       z[i,4]: =b;       end; for i: = 1 to n do       begin       for j: = 1 to m do               write(z[i,j]: 3,' ');       writeln;       end; end. пример: исходный массив:   -7    2  -2    3   9  -6  -6    1   -9  10  -9    3 второй и четвёртый столбец переставлены:   -7    3  -2    2   9    1  -6  -6   -9    3  -9  10

Метод наступний: ділимо число на 2, записуємо остачу від ділення, ділимо частку на 2, 5610 / 2 = 2805, остача 0 2805 / 2 = 1402, остача 1 1402 / 2 = 701, остача 0 701 / 2 = 350, остача 1 350 / 2 =  175, остача 0 175 / 2 = 87, остача 1 87 / 2 = 43, остача 1 43 / 2 = 21, остача 1 21 / 2 = 10, остача 1 10 / 2 = 5, остача 0 5 / 2 = 2, остача 1 2 / 2 = 1, остача 0 1 / 2 = 0, остача 1 записуємо знизу вверх. маємо: 1010111101010.