Помогите с заданием, решить нужно с использованием процедуры или функции. Задача: В...

// PascalABC.Net 3.0, сборка 1052
type
Matrix=array[,] of integer;

function SumRow(a:Matrix; i:integer):integer;
var
j,s:integer;
begin
s:=0;
for j:=0 to Length(a,1)-1 do s:=s+a[i,j];
SumRow:=s
end;

var
i,j,m,n:integer;
A:Matrix;
begin
Write('Введите количество строк и столбцов массива: ');
Read(m,n);
SetLength(A,m,n);
Writeln('Исходный массив');
Randomize;
for i:=0 to m-1 do begin
    for j:=0 to n-1 do begin
      A[i,j]:=Random(51)-25; // интервал [-25;25]
      Write(A[i,j]:4)
    end;
    Writeln
end;
Write('Построчные суммы: ');
for i:=0 to m-1 do Write(SumRow(A,i),' ');
Writeln
end.

Тестовое решение:
Введите количество строк и столбцов массива: 10 13
Исходный массив
-11 19 -1 12 -19 -7 25 16   6 -18   8 16 -22
-10 -9 21 21 -16 -14 10   7 -7 -21 23 -25 14
-16 -5 18 -6 12 -11 -23 -3 20 24 -4 -18 -16
-15 -1   5 -5 -9 -3 -9   0   0 21 -3 -15 -1
21 19 -17 21 15   2 11 -7 -17   5 23 -14 -5
-7 13   7 -5 -8   0 13 -25 -24 -14 -23 24 14
   0 10 -11 10 -1 -5 -17 -12 -6 -16 -12 25 -16
20 -3 17 -24 19   7 -16 22 -22   3 18 -21   3
23 -3 -1 20   7 -19 23 -25 -24 -24 -21 -1 -20
   2 -23 -18 25   4 -7 -4 -17   5 -9 -17 25 -8
Построчные суммы: 24 -6 -28 -35 57 -35 -51 23 -65 -42