Задача по паскалю на матрицу

uses
  crt;
const
    n=4;
    m=3;
var matrix:array[1..n,1..m]of byte;
    i,j,sumj,sumi:word;
begin
randomize;
for i:=1 to n do
 for j:=1 to m do
  matrix[i,j]:=10+random(10);
for i:=1 to n do
 begin
 for j:=1 to m do
  write(' ',matrix[i,j]);
 writeln;
 end;
sumi:=0;
for i:=1 to n do
 begin
 for j:=1 to m do
  sumi:=sumi+matrix[i,j];
 writeln('summa ',i,' stroki =',sumi);
 sumi:=0;
 end;
sumj:=0;
for j:=1 to m do
 begin
 for i:=1 to n do
  sumj:=sumj+matrix[i,j];
 writeln('summa ',j,' stolbca =',sumj);
 sumj:=0;
 end;
readln;
end.