uses crt;
var a:array[1..100,1..100] of integer;
    b:array[1..100] of integer;
    i,j,m,n,k,buf:integer;
begin
clrscr;
write('m='); read(m);
write('n='); read(n);
for i:=1 to m do
    for j:=1 to n do
        begin
             write('a[',i,',',j,']=');
             read(a[i,j]);
        end;
k:=0;
for i:=1 to m do
    for j:=1 to n do if (a[i,j]>a[1,1]) then
        begin
             k:=k+1;
             b[k]:=a[i,j];
        end;
for i:=1 to k-1 do
     for j:=i+1 to k do if b[i]<b[j] then
          begin
                  buf:=b[i];
                  b[i]:=b[j];
                  b[j]:=buf;
          end;
for i:=1 to m do
    begin
         for j:=1 to n do
             write(a[i,j],' ');
             writeln
    end;
writeln;
        for j:=1 to k do
        write(b[j],' ');
end.