Дополнить матрицу строкой и столбцом, в которые записать суммы элементов строк и столбцов

uses crt;
const
     n=10;
     m=15;
var
   arrA:array[1..n,1..m] of byte;           {или integer}
   arrB:array[1..n+1,1..m+1] of integer; {сумма элементов может превысить диапазон byte}
   i,j: byte;                                       {для небольшой размерности хватит}
begin
clrscr;
for i:=1 to n do
    begin
    for j:=1 to m do
        begin
        arrA[i,j]:=random(100);
        arrB[i,m+1]:=arrB[i,m+1]+arrA[i,j];
        arrB[n+1,j]:=arrB[n+1,j]+arrA[i,j];
        end;
    end;
writeln('Исходный массив:');
for i:=1 to n do
    begin
    for j:=1 to m do
    begin
    write(arrA[i,j]:3, ' ');
    arrB[i,j]:=arrA[i,j];
    end;
    writeln;
    end;
writeln('Полученный массив:');
for i:=1 to n+1 do
    begin
    for j:=1 to m+1 do
    write(arrB[i,j]:3, ' ');
    writeln;
    end;
readln;
end.