Разработчику о работе с 1С:Предприятие, Pascal, Паскаль

Найти сумму чисел двухмерного массива, паскаль.

program Arr2;

  {Найти сумму чисел двухмерного массива, паскаль}
var
  i, j, i_SumNum: integer;
  i_ArrNum: array[1..4, 1..3] of integer;

begin
  i_SumNum := 0;
  WriteLn('Задан двухмерный массив из 12 элементов, введите числа');
  for i := 1 to 4 do
    for j := 1 to 3 do
    begin
      Readln(i_ArrNum[i, j]);
      i_SumNum := i_SumNum + i_ArrNum[i, j];
    end;
  WriteLn('Сумма  чисел двухмерного массива: ', i_SumNum);
  ReadLn();
end.

Результат:

Найти сумму чисел двухмерного массива, паскаль.