Дана матрица (nхm).Создать массив, каждый элемент которого равен среднему арифметическому отрицательных элементов в каждой строке матрицы. Упорядочить строки матрицы по убыванию средних арифметических элементов.
program a1345;
const n=10;
var a:array[1..n,1..n] of real;
i,j,n_max,k,kol:integer;
max,temp:real;
s:array[1..n]of real;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:= random(20)-10;
write(' ',a[i,j]);
end;
writeln;
end;
for i:=1 to n do
begin
kol:=0; s[i]:=0;
for j:=1 to n do
begin
if a[i,j]<0 then
begin
kol:=kol+1;
s[i]:=a[i,j]+s[i];
end;
end;
end;
for i:=1 to n do
begin
for j:=1 to n do
begin
a[i,j]:=s[i]/kol;
end;
end;
а дальше я запуталась, подскажите пожалуйста)