В каждой строке матрицы вычислить количество, сумму и среднее арифметическое отрицательных элементов

const n=10;
var a:array [1..n,1..n] of integer;
i,j,sum,kol:integer;
sred:real;
 
begin
   Writeln('Матрица:');
   For i:=1 to n do
     begin
     For j:=1 to n do
        begin
        randomize;
        a[i,j]:=random(50)-25;
        write(a[i,j]:3);
        end;
     writeln;
     end;
     For i:=1 to n do
       begin
       sred:=0;
       sum:=0; kol:=0;
       For j:=1 to n do
            begin
            if a[i,j]<0 then
                 begin
                 sum:=sum+a[i,j];
                 inc(kol);
                 end;
            end;
       Writeln('Кол-во отриц. эл-тов ',i,'-й строки = ',kol);
       Writeln('Сумма отриц. эл-тов ',i,'-й строки = ',sum);
       if sum<>0 then
           begin
           sred:=sum/kol;
           Writeln('Сред.ариф. отриц. эл-тов ',i,'-й строки = ',sred:0:2);
           end;
       writeln;
       end;
end.