program sdfdsf;

{$APPTYPE CONSOLE}
uses
  SysUtils;

var
m:array [0..100,0..100] of integer;
n,j,i,k,l,r,x, str:integer;

begin
writeln('vvedite kol-vo strok: ');
readln(str);
writeln('vvedite kol-vo stolbtsov: ');
readln(n);
for i:=1 to str do
  for j:=1 to n do
    readln(m[i,j]);

writeln('Your matrix:');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(m[i,j]:3, '  ');
      writeln;
    end;

for i:=1 to str do
begin
L:=2;
r:=n;
k:=n;
repeat
  for j:=r downto l do
    if m[i,j-1]<m[i,j] then
      begin
        x:=m[i,j-1];
        m[i,j-1]:=m[i,j];
        m[i,j]:=x;
        k:=j;
      end;

  L:=k+1;

    for j:=L to r do
      if m[i,j-1]<m[i,j] then
        begin
          x:=m[i,j-1];
          m[i,j-1]:=m[i,j];
          m[i,j]:=x;
          k:=j;
        end;
  r:=k-1;
until l>r;
end;

writeln;
writeln('Shakernaya ubivanie po strokam:');

for i:=1 to str do
begin
  for j:=1 to n do
    write(m[i,j]:4, '  ');
  writeln;
  end;


for j:=1 to n do
  for i:=2 to str do
  begin
    x:=m[i,j];
    m[0,j]:=x;
    k:=i;
      while x<m[k-1,j] do
        begin
          m[k,j]:=m[k-1,j];
          k:=k-1;

        end;
        m[k,j]:=x;
    end;

writeln('pryamoi vkluchenie stolbtsi::');

for i:=1 to str do
begin
  for j:=1 to n do
    write(m[i,j]:4, '  ');
  writeln;
  end;
readln;
end.