Заполнение массива нулями и единицами в шахматном порядке

function getLengthArray(text : String) : integer;
begin
   result := -1;
   while (result <= 0) do
   begin
      write(text);
      readln(result);
      if (result <= 0) then writeln('Размер массива должен быть больше 0!!!');
   end;
   getLengthArray := result;
end;
 
//***************************************************************************************
 
function arrayDeepToString(arr : array of array of integer) : String;
var
   i, k : integer;
begin
   result := '';
   if length(arr) > 0 then
   begin
     for i := 0 to length(arr) - 1 do
     begin
        result := result + '[';
        for k := 0 to length(arr[i]) - 1 do
        begin
           result := result + arr[i][k];
           if k < length(arr[i]) - 1 then result := result + ', ';
        end;
        result := result + ']' + #13;
     end;
   end; 
   arrayDeepToString := result;
end;
 
//***************************************************************************************
 
procedure createDynamicArray(var arr : array of array of integer; lengthX : integer; lengthY : integer);
var
   i : integer;
begin
   if (lengthY > 0) and (lengthX > 0) then
   begin
      setLength(arr, lengthY);
      for i := 0 to lengthY - 1 do
      begin
         setLength(arr[i], lengthX);
      end;
   end;
end;
 
//***************************************************************************************
 
procedure fillArrayByAlgorithm(var arr : array of array of integer);
var
  i, j  : integer;
  
begin
   for i := 0 to length(arr) - 1 do
   begin
      for j := 0 to length(arr[i]) - 1 do
      begin
         if (i + j) mod 2 = 0 then arr[i][j] := 0
         else arr[i][j] := 1;
      end;
   end;
end;
 
//***************************************************************************************
 
var
  arr              : array of array of integer;
  lengthXY         : integer;
   
begin
   lengthXY := getLengthArray('Введите размер двумерного массива по X и Y: ');
   
   createDynamicArray(arr, lengthXY, lengthXY);
   fillArrayByAlgorithm(arr);
   
   write('Результат: ', #13, arrayDeepToString(arr));   
end.