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

идеально, спасибо 

Пожалуйста

// PascalABC.NET 3.0, сборка 1128begin  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;  Writelnend.Тестовое решение:Число строк: 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