Уважаемые программисты, помогите исправить задачу
Усл:Дан двумерный массив a, раз¬мером (nm). Найти среднее ариф¬метическое положительных элементов в каждом столбце матрицы. Затем упорядочить по убыванию созданный массив.

вот мои наработки, но и они, естественно, нерабочие:program c;
const n=10; m=15;
var a:array[1..n,1..m] of real;
b:array[1..m] of real;
i,j,k,n_max:integer;
s,max,t:real;
begin
randomize;
for i:=1 to n do
begin
for j:=1 to m do
begin
a[i,j]:=random(20)-10;
write(a[i,j]);
end;
end; k:=0; s:=0;
for i:=1 to n do
begin
for j:=1 to m do
begin
if a[i,j]>0 then k:=k+1; s:=s+a[i,j];
end;
b[i]:=s/k;
end; max:=-10000;
for i:=1 to n do
begin
if b[i]>max then
begin
max:=b[i];
n_max:=i;
end;
t:=b[n_max];
b[n_max]:=b[i];
b[i]:=t;
writeln(b[i]);
end;
end.
Заранее спасибо