program l8n12ch1;

type
  massiv = array [,] of integer;

procedure RandomMatrix(var A: massiv; n, m: integer);
var
  i, j: integer;
begin
  for i := 0 to n - 1 do
    for j := 0 to m - 1 do
      A[i, j] := random(10);
end;

var
  i, j, n, m, max, min, maxJ, minJ: integer;
  B: massiv;

begin
  Randomize;
  writeln('Enter quantity of lines: ');
  readln(n);
  writeln('Enter quantity of columns: ');
  readln(m);
  Writeln;

  setlength(B, n, m);

  writeln('Your matrix: '); //vivod matrix
  RandomMatrix(B, n, m);
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
      write(B[i, j]:5);
      writeln;
  end;
  Writeln;

  for i := 0 to n - 1 do
  begin
    max := B[i, 0]; //first element of line
    maxJ := 0;
    for j := 0 to m - 1 do
    begin
      if (B[i, j] > max) then       // begin MAX
      begin
        max := B[i, j];
        maxJ := j;
      end;
      if (j = m - 1) then Swap(B[i, 0], B[i, maxJ]); //end Max
    end;
  end;

  for i := 0 to n - 1 do
  begin
    min := B[i, m - 1]; //last element of line
    minJ := m - 1;
    for j := 0 to m - 1 do
    begin
      if (B[i, j] < min) then      //begin Min
      begin
        min := B[i, j];
        minJ := j;
      end;
      if (j = m - 1) then Swap(B[i, m - 1], B[i, minJ]); //end Min
    end;
  end;
  Writeln;

  writeln('New matrix: '); //vivod matrix
  for i := 0 to n - 1 do
  begin
    for j := 0 to m - 1 do
      write(B[i, j]:5);
      writeln;
  end;
end.