Дана матрица размера 5 x 10. В каждой строке найти количество элементов, больших среднего арифметического всех элементов этой строки — Pascal(Паскаль)

uses crt;
const
 n=5;m=10;
var
 a:array[1..n,1..m] of integer;
 i,j,k:byte;
 sr:real;
begin
 clrscr;
 randomize;
 for i:=1 to n do
  for j:=1 to m do
   a[i,j]:=random(101)-50;
 writeln('Ishodnaya matrica');
 for i:=1 to n do
  begin
   for j:=1 to m do
    write(a[i,j]:5);
   writeln();
  end;
 for i:=1 to n do
  begin
   sr:=0;
   for j:=1 to m do
    sr:=sr+a[i,j];
   sr:=sr/m;
   k:=0;
   for j:=1 to m do
    if a[i,j]>sr then inc(k);
   writeln('V stroke #',i,' kolvo elementov bolshih sredn arifm ',sr,' =',k);
  end;
 readln
end.