Uses crt;
var
a:array[1..100,1..100]of integer;
har,t:array[1..100]of integer;
m,n,i,j,temp,k:integer;
begin
randomize;
writeln('vvedite kol strok i stolbcov');
readln(m,n);
for i:=1 to m do
for j:=1 to n do
a[i,j]:=random(20)-10;
writeln('ishodnaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
for j:=1 to n do
for i:=1 to m do
if (a[i,j]<0)and(a[i,j] mod 2<>0)then har[j]:=har[j]+abs(a[i,j]);
writeln('harakteristiki stolbcov');
for j:=1 to n do
write(har[j]:5);
writeln;
for i:=1 to n do
  for j:=2 to n do
if har[j]<har[j-1] then begin
temp:=har[j];
har[j]:=har[j-1];
har[j-1]:=temp;
for k:=1 to m do
t[k]:=a[k,j];
for k:=1 to m do
a[k,j]:=a[k,j-1];
for k:=1 to m do
a[k,j-1]:=t[k];
end;
writeln('novaya matrica');
for i:=1 to m do
begin
for j:=1 to n do
write(a[i,j]:5);
writeln;
end;
end.