{$APPTYPE CONSOLE}
var i,j,n,m,st,l:integer;f:text;
a:array [1..1000,1..1000] of integer;
c:array [1..1000] of integer;
begin
assign(f,'Tabl.dat');reset(f);
readln(f,n,m,st);
for i:=1 to n do begin
for j:=1 to m do begin
read(f,a[i,j]);end;readln(f);end;
close(f);
for i:=1 to n-1 do
for j:=i+1 to n do
if a[i,st]>a[j,st] then begin
for l:=1 to m do begin
c[l]:=a[st,l];a[st,l]:=a[st,l];a[st,l]:=c[l];end;end;
assign(f,'Tabl.sol');rewrite(f);
for i:=1 to n do begin
for j:=1 to n do begin
write(f,a[i,j],' ');end;writeln(f);end;
close(f);
end.