Дан массив В(n*m) ).Элементы массива ввести случайным образом.Найти сумму элементов в каждой строке, больших среднего арифметического элементов данной строки Паскаль

// PascalABC.NET 3.0, сборка 1128 begin   var m:=ReadInteger('Число строк:');   var n:=ReadInteger('Число колонок');   var a:=MatrixRandom(m,n,-10,20);   Writeln('Сгенерированный массив');   for var i:=0 to m-1 do begin     for var j:=0 to n-1 do Write(a[i,j]:4);     Writeln     end;   Writeln('Найденные суммы');   for var i:=0 to m-1 do begin     var avg:=0.0;     for var j:=0 to n-1 do avg+=a[i,j];     avg/=n;     var s:=0;     for var j:=0 to n-1 do       if a[i,j]>avg then s+=a[i,j];     Write(s,' ')     end;   Writeln end. Тестовое решение: Число строк: 5 Число колонок 7 Сгенерированный массив   19  14  -6  -8   2  -3  11    2  -8  -9  18   6  -6  -9   -5  -1   2  -6  -6  15  -4   13  19   2   6 -10   5  15   13   1   0  -2  -8  20  18 Найденные суммы 44 26 17 47 51