var
  a: array [,] of integer; 
  n, m, i, j, k, x: integer;

begin
  randomize;
  write('Введите количество строк:');
  readln(m);
  write('Введите количество столбцов:');
  readln(n);
  SetLength(a, m, n); 
  for i := 0 to m - 1 do
    for j := 0 to n - 1 do
      a[i, j] := random(9);
  for i := 0 to m - 1 do
  begin
    for J := 0 to n - 1 do
      write(a[i, j]:4);
    writeln;
  end;
  for i := 0 to m - 1 do
    for j := 0 to n - 1 do
      for k := j + 1 to m - 1 do
        if (a[i, j] < a[i, k] ) and (i mod 2 = 1) then
        begin
          x := a[i, j];
          a[i, j] := a[i, k];
          a[i, k] := x;
        end;
  writeln('Сортировка');
  for i := 0 to m - 1 do
  begin
    for j := 0 to n - 1 do
      write(a[i, j]:4);
    writeln;
  end;
end.