помогите срочно с информатикой: написать программу, которая в массиве размерностью в 10 на 12 находит сумму:

1)всех элементов массива.
2) каждого столбца.
3) каждой строки.
10 класс... плизз...

const m=10; n=12;var a:array [1..m,1..n] of integer;i,j:integer;sob:integer;sst:array[1..n]of integer;sstr:array[1..m]of integer;beginrandomize;for i:=1 to m do beginfor j:=1 to n do begina[i,j]:=random(10);write(a[i,j]:3);end;writeln;end;sob:=0;for i:=1 to m do beginfor j:=1 to n do beginsob:=sob+a[i,j];end;end;writeln('сумма всех элементов массива = ', sob);writeln;writeln;for i:=1 to m do beginsstr[i]:=0;for j:=1 to n do beginsstr[i]:=sstr[i]+a[i,j];end;end;writeln('сумма элементов построчно');for i:=1 to m do write(sstr[i]:3);writeln;writeln;for j:=1 to n do beginsst[j]:=0;for i:=1 to m do beginsst[j]:=sst[j]+a[i,j];end;end;writeln('сумма элементов по столбцам');for j:=1 to n do write(sst[j]:3);end.