program z8_97;
var
a:array[1..100,0..100] of integer;
n,m,i,j, min,k : integer;
begin
write('Ââåäèòå êîëè÷åñòâî ñòðîê â ìàòðèöå ');
readln(n);
write('Ââåäèòå êîëè÷åñòâî ñòîëáöîâ â ìàòðèöå ');
readln(m);
for i:=1 to n do
for j:=1 to m do
begin
write('ââåäèòå A[',i,',',j,'] ');
readln(a[i,j]);
end;
k:=1;
for j:=1 to m do
for i:=1 to n do
if a[i,j]>=0 then begin
k:=j;
end;
for j:=0 to k-1 do
for i:=1 to n do
a[i,j]:=a[i,j+1];
for i:=1 to n do
a[i,j]:=a[2,j];
for i:= 1 to n do
begin
for j:=0 to m do
write(a[i,j]:3);
writeln;
end;
end.