Сформировать двумерный массив по правилу - PascalABC.NET

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

Сформировать двумерный массив, у которого значения элементов равны 1, если сумма индексов этого элемента четная, и равна 0, если сумма индексов - нечетная. Вот это получилось, но он выводит всё в один ряд

                    Листинг программы
                
 
                        
                          
                    
const
  n = 4; m = 10;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
  randomize;
  for i := 1 to N do 
    for j := 1 to M do
      if  (i + j) mod 2 = 0 then write(1)
      else write(0);
end.

Решение задачи: «Сформировать двумерный массив по правилу»

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

const
  n = 4; m = 10;
var
  a: array [1..n, 1..m] of integer;
  i, j: integer;
begin
for i := 1 to N do
 begin
  for j := 1 to M do
   begin
    if  (i + j) mod 2 = 0 then a[i,j]:=1
    else a[i,j]:=0;
    write(a[i,j]:2);
   end;
  writeln;
 end;
end.

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

Объявлены константы n = 4 и m = 10, которые определяют размерность двумерного массива.
Объявлен двумерный массив a размером n на m и инициализирован нулями.
В цикле for i от 1 до n выполняется:
1. В цикле for j от 1 до m выполняется:
2. Проверяется условие (i + j) mod 2 = 0, если оно истинно, то a[i,j] присваивается значение 1, иначе 0.
3. Выводится значение a[i,j] в формате 2 цифры с пробелом после каждой итерации внутреннего цикла.
4. После завершения внутреннего цикла, выводится символ новой строки.
5. После завершения внешнего цикла, выводится символ новой строки.
6. Код завершается.