const L = 100;
type mas1 = array[0..L-1] of integer;
     mas2 = array[0..L-1] of mas1;

procedure swap(var a, b : integer);
var t : integer;
begin
  t := a;
  a := b;
  b := t;
end;

procedure sort(var a, ind : mas1; n :integer);
var min, x : integer;
begin
  for var i := 0 to n-1 do
  begin
    min := 32000;
    for var j := i to n-1 do
    begin
      if min > a[j] then begin min := a[j]; x := j; end;
    end;
    if min <> 32000 then begin swap(a[i], a[x]); swap(ind[i], ind[x]) end;
  end;
end;


var a : mas2;
    ind : mas1;
    m, n, cod1, cod2 :integer;
    f : boolean;
    s1, s2, s : string[255];
begin
  writeln('Введите размерность: ');
  read(s);
  f := false;
  for var i := 1 to length(s) do
  begin
    if s[i] = ' ' then f := true
    else
    begin
    if not f then s1 := s1 + s[i]
    else s2 := s2 + s[i];
    end;
  end;
  val(s1, n, cod1);
  val(s2, m, cod2);
  if (m >= 1) and (n >= 1) and ((cod1 = 0) and (cod2 = 0)) then
  begin
    writeln('');
    writeln('Введите элементы матрицы: ');
    for var k := 0 to m-1 do ind[k] := k;
    for var i := 0 to n-1 do
      for var j := 0 to m-1 do read(a[i][j]);

    sort(a[0], ind, m);

    writeln('');
    writeln('Результат обработки:');
    for var j := 0 to m-1 do write(a[0][j], ' ');
    writeln('');
    for var i := 1 to n-1 do
    begin
      for var j := 0 to m-1 do write(a[i][ind[j]], ' ');
      writeln('');
    end;
    end
  else
    writeln('Введите правильную размерность');
end.