program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}{$IFDEF UseCThreads}
  cthreads,
  {$ENDIF}{$ENDIF}
  Classes
  { you can add units after this };
   type
     ar1=array[1..100,1..100] of integer;
procedure minmax(m,k:integer; var a:ar1);
var j,r:integer;
begin
    for j:=1 to m do
    begin
        r:=a[k,j];
        a[k,j]:=a[1,j];
        a[1,j]:=r;
    end;
end;
var
  i,j,n,m,k:integer;
  a1:ar1;
  begin
    randomize;
    readln(n,m);
    writeln;
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        //read(a1[i,j]);
        a1[i,j]:=random(100);
        end;
      end;
    writeln;
    
    readln(k);
    writeln;
    
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        write(a1[i,j]:2,' ');
        end;
      writeln;
      end;
      writeln;

      minmax(m,k,a1);
    for i:=1 to n do
    begin
      for j:=1 to m do
      begin
        write(a1[i,j]:2,' ');
        end;
      writeln;
      end;
    readln;
    readln;
end.