Найдите сумму и количество элементов каждой строки больше среднего арифметического

Program asd;Const n=3; m=3;Var A:array[1..n, 1..m] of integer;i,j,s,s1,k:integer; sr:real;BEGIN  Writeln('Массив А: '); For i:=1 to n do  begin   s:=0;   for j:=1 to m do     begin    A[i,j]:=Random(10);    Write(A[i,j]:2);    s:=s+A[i,j];      sr:=s/i;    end;    Writeln;  end;  Writeln; k:=0;  For i:=1 to n do    begin   s1:=0;    for j:=1 to m do             If A[i,j]>sr then       begin      inc(k);      s1:=s1+A[i,j];   end;          Writeln('Сумма строки №',i,' : ',s1);   end;   Writeln('Сред. ариф. массива: ',sr:2:2);    Writeln('Количество: ',k);END.