program tablete;
var i,n,k,m,j,p:integer;
a:array[1..100,1..100] of real;
aux:real;
begin
readln(n);
readln(m);
for i:=1 to n do
    for j:=1 to m do read(a[i,j]);
for i:=1 to n do
    for j:=1 to m-1 do begin
    p:=j;
    for k:=j+1 to m do
        if a[i,k]<a[i,p] then p:=k;
    aux:=a[i,j];
    a[i,j]:=a[i,p];
    a[i,p]:=aux;
    end;
for i:=1 to n do begin
    for j:=1 to m do
        write(a[i,j],' ');
    writeln;
end;
end.