Нужно сделать правильно и все расписывать грамотно ( имена с право это не нужная хрень )​

// PascalABC.NET 3.3, сборка 1633 от 10.02.2018
// Внимание! Если программа не работает, обновите версию!

begin
  var (m,n):=ReadInteger2('Количество строк и столбцов в матрице:');
  Writeln('*** Матрица A ***');
  var a:=MatrRandom(m,n,10,99); a.Println(3);
  var b:=new integer[m,n];
  var c:=new integer[m,n];
  for var i:=0 to m-1 do
    for var j:=0 to n-1 do
      (b[i,j],c[i,j]):=(a[i,j] div 10,a[i,j] mod 10);
  Writeln('*** Матрица  B ***'); b.Println(3);  
  Writeln('*** Матрица  C ***'); c.Println(3);
  Writeln(3*n*'-');
  Writeln('Количество нулевых элементов в С: ',
    c.ElementsByRow.Where(t->t=0).Count);
  var (sb,sc):=(b.ElementsByRow.Sum,c.ElementsByRow.Sum);
  Writeln('Сумма всех элементов матрицы B: ',sb);
  Writeln('Сумма всех элементов матрицы C: ',sc);
  if sb>sc then Writeln('Сумма элементов матрицы B больше')
  else
    if sc>sb then Writeln('Сумма элементов матрицы C больше')
    else Writeln('Суммы элементов матриц B и С равны')
end.

Для  данной сортировки используем алгоритм сортировки слиянием

В начале разбиваем арбузы на 2 группы по 2Каждую группу взвешиваем и сортируем (т.е. всего 2 взвешивания)Теперь собираем вместе, сравниваем сначала более легкие арбузы и находим самый легкий (всего 3 взвешивания)Теперь сравниваем тяжелый арбуз, что в группе с самым легким и более легкий из другой группы, и определяем второй по легкости (всего 4 взвешивания)Потом взвешиваем оставшиеся арбузы и докладываем их  по порядку (всего 5 взвешивания)