Написать фрагмент суммирования матрицы 10 x 10. Решите пожалуйста

constm=10; n=10; vara: array[1… m,1… n] of byte; s: array[1… n] of byte; i,j, sum: byte; beginrandomize; for i: =1 to m do beginfor j: =1 to n do begin a[i,j]: =random (10); write (a[i,j]: 3) end; writelnend; writeln ('-'); for j: =1 to n do beginfor i: =1 to m do begins[j]: =s[j]+a[i,j]; sum: =sum+a[i,j]end; write (s[j]: 3) end; write (' | sum=', sum); readlnend. Впринципе это почти что тебе нужно там есть сумма массива 10 х 10, только там еще есть дополнительная фигня, она особо тебе не нужна. Просто у меня уже готовое было вот такое и скинул, редактировать лень)