Расположить столбцы матрицы в соответствии с ростом характеристик

const  n=5;m=7;
type mas=array[1..m] of integer;
     matr=array[1..n] of mas;
var a:matr;j:integer;
procedure vv(var x:matr;f:boolean;s:string);
var i,j:integer;
begin
 writeln(s,' матрица:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if f then x[i,j]:=-20+random(41);
     write(x[i,j]:5)
    end;
   writeln
  end;
end;
procedure p_stolb(var x:matr;j1,j2:integer);
var i,tmp:integer;
begin
 for i:=1 to n do 
  begin
   tmp:=x[i,j1];
   x[i,j1]:=x[i,j2];
   x[i,j2]:=tmp
  end;
end;
function h_stolb(x:matr;j1:integer):integer;
var i,s:integer;
begin
 s:=0;
 for i:=1 to n do
  if (odd(a[i,j1]))and(a[i,j1]<0)then s:=s+abs(a[i,j1]);
 h_stolb:=s
end;
procedure sort_stolb(var x:matr);
var i,j:integer;
begin
 for i:=1 to m-1 do
  for j:=1 to m-i do
   if h_stolb(x,j)>h_stolb(x,j+1) then p_stolb(x,j,j+1) 
end;   
   
begin
 vv(a,true,'исходная');
 sort_stolb(a);
 vv(a,false,'полученная');
 writeln('характеристики:');
 for j:=1 to m do write(h_stolb(a,j):5); 
end.

const  n=3;m=7;
type mas=array[1..m] of integer;
     matr=array[1..n] of mas;
var a:matr;j:integer;
procedure vv(var x:matr;f:boolean;s:string);
var i,j:integer;
begin
 writeln(s,' матрица:');
 for i:=1 to n do
  begin
   for j:=1 to m do
    begin
     if f then x[i,j]:=-10+random(41);
     write(x[i,j]:5)
    end;
   writeln
  end;
end;
function otr(x:matr;j1:integer):boolean;
var i:integer;f:boolean;
begin
 f:=false;i:=1;
 while (not f)and(i<=n) do
  begin
   if a[i,j1]<0 then f:=true;
   inc(i)
  end;
 otr:=f 
end;
function sum_stolb(x:matr;j:integer):integer;
var i,s:integer;
begin
 for i:=1 to n do s:=s+a[i,j];
 sum_stolb:=s;
end;   
   
begin
 vv(a,true,'исходная');
 writeln('суммы столбцов с отрицательным элементом');
 for j:=1 to m do if otr(a,j) then write(sum_stolb(a,j):5)
                              else write('  ---')   
end.