const
ssize = 100;
csize = 100;
s:=3;
c:=4;
Var
	a:array [1..ssize] of array [1..csize] of integer;
	rowindex, columnindex: integer;
	rowindex1, rowindex2, columnindex1, columnindex2, tmp: integer;
Begin
Begin
  writeln;
  for rowindex := 1 to s do
  Begin
    for columnindex := 1 to c do
    Begin
      a[rowindex, columnindex] := random(110) - 50;
      write(a[rowindex, columnindex]:4);
    end;
    writeln;
  end;
	End;
		for rowindex := 1 to s * c - 1 do
		for columnindex := rowindex + 1 to s * c do
		begin
		  rowindex1 := 1 + rowindex div c - 1 div (1 + rowindex mod c);
		  columnindex1 := rowindex - (rowindex1 - 1) * c;
		  rowindex2 := 1 +  columnindex1 div c - 1 div (1 + columnindex1 mod c);
		  columnindex2 := columnindex1 - (rowindex2 - 1) * c;
		  if a[rowindex1, columnindex1] < a[rowindex2, columnindex2] then
		  begin
			tmp := a[rowindex1, columnindex1];
			a[rowindex1, columnindex1] := a[rowindex2, columnindex2];
			a[rowindex2, columnindex2] := tmp;
		  end;
		end;
writeln(' ');
for rowindex := 1 to s do
begin
for columnindex := 1 to c do
write(a[rowindex, columnindex]:4);
writeln;
end;
readln;
end.