const
  n = 5;
  m = 8;

var
  arr: array[1..n, 1..m] of integer;
  i, j, imin, jmin, imax, jmax, temp: integer;

begin
  WriteLn('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      arr[i, j] := Random(201) - 100;
      Write(arr[i, j]:5);
    end;
    WriteLn;
  end;

  imin := 1;
  jmin := 1;
  imax := 1;
  jmax := 1;
  for i := 1 to n do
    for j := 1 to m do
    begin
      if arr[imin, jmin] > arr[i, j] then
      begin
        imin := i;
        jmin := j;
      end;
      if arr[imax, jmax] < arr[i, j] then
      begin
        imax := i;
        jmax := j;
      end;
    end;

  temp := arr[1, 1];
  arr[1, 1] := arr[imin, jmin];
  arr[imin, jmin] := temp;

  temp := arr[1, 2];
  arr[1, 2] := arr[imax, jmax];
  arr[imax, jmax] := temp;

  WriteLn('Новая матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do Write(arr[i, j]:5);
    WriteLn;
  end;
end.