program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var a:array[1..1000]of integer;
  k,i,j,min,k,c,n:integer; f1,f2:text;
begin
assign(f1,'tabel.txt');
  reset(f1);
  assign(f2,'tabell.txt');
  rewrite(f2);
  readln(f1,n)
  readln(f1,m);
  readln(f1,k);
  for i:=1 to n do
  begin
  for j:=1 to m do
  read(f1,a[i,j]);
  readln(f1);
  end;
  for i:=1 to n-1 do
  begin
  min:=a[i,k];
  k1:=i;
  for j:=i+1 to n do
  if a[j,k]<min then
  begin
  min:=a[j,k];
  k1:=j;
  end;
  for x:=1 to m do
  begin
  c:=a[i,x];
  a[i,x]:=a[k1,x];
  a[k1,x]:=c;
  end;
  end;
  for i:=1 to n do
  begin
  for j:=1 to m do
  write(f2,a[i,j],' ');
  writeln(f2);
  end;
  close(f1);
  close(f2);
end.