q1870488115

const N = 5;
var
  a: array [1..N, 1..N] of integer;
  i, j: integer;

procedure sort(line: integer);
 var i, len, newLen, temp: integer;
begin
  len := N;
  repeat
    newLen := 1;
    for i := 2 to len do
    begin
      if a[line, i-1] < a[line, i] then
      begin
        temp := a[line, i];
        a[line, i] := a[line, i-1];
        a[line, i-1] := temp;
        newLen := i;
      end;
    end;
    len := newLen;
  until len = 1;
end;

begin
  randomize;
  writeln(N);
  for i := 1 to N do
  begin
    for j := 1 to N do
    begin
      a[i, j] := random(90) + 10;
      write(a[i, j]:3);
    end;
    writeln;
  end;

  writeln;
  for i := 1 to N do
  begin
    sort(i);
    for j := 1 to N do
      write(a[i, j]:3);
    writeln;
  end;
end.