var a:array [1..1000,1..1000] of integer;
i,n,j,s1,s2,m,k,ki,kj:integer;
begin
write ('kol-vo strok='); readln (n);
write ('kol-vo stolbcov='); readln (m);
writeln ('Zapolnite massiv');
for i:=1 to n do 
for j:=1 to m do 
begin
write ('a[',i,'][',j,']='); readln (a[i,j]);
end;
writeln ('Vash massiv ');
for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
j:=1;
while (j<=m) do begin
for i:=1 to n do 
if a[i,j]<0 then begin s1:=a[i,j]; ki:=i; end;
for i:=n downto 1 do
if a[i,j]<0 then begin s2:=a[i,j]; kj:=i; end;
k:=s1;
a[ki,j]:=s2;
a[kj,j]:=k;
j:=j+1;
end;
writeln ;
writeln ('Vash massiv posle zameni ');
for i:=1 to n do
begin
  for j:=1 to m do
  write(a[i,j]:4);
  writeln;
end;
end.