Фирма имеет 10 магазинов.Информацыя о доходе каждого магазина за каждый месяц года хранится в двумерном массиве (первого магазина — в первой строке , второго — во второй и т.д.).Составить программу для расчета среднемесячного дохода любого магазин- Pascal(Паскаль)

const n=10; m=12;
var arr:array [1..n,1..m] of integer;
    i,j:byte;
    sum,sr:real;
begin
for i:=1 to n do
for j:=1 to m do
arr[i,j]:=random(10);
for i:=1 to n do
begin
sum:=0; sr:=0;
begin
for j:=1 to m do
sum:=sum+arr[i,j];
sr:=sum/m;
writeln('Магазин ',i,' доход ',sr:0:1);
end;
end;
end.