Поменять местами минимальный и максимальный элемент матрицы в каждой строке

procedure TForm1.Button1Click(Sender: TObject);
const
  M = 5;
  N = 8;
var
  mas: array of array of integer;
  i, j, zamena, max, min: integer;
  S, D: String;
  Sg : TStringGrid;
begin
  Sg := StringGrid1;
 
  SetLength(mas, M, N); //Задаём размер массива.
  Sg.FixedRows := 0; //Нет фиксированных строк.
  Sg.FixedCols := 0; //Нет фиксированных столбцов.
  Sg.RowCount:= M; //Количество строк.
  Sg.ColCount:= N; //Количество столбцов.
 
  Randomize;
  for i := 0 to High(mas) do
    for j := 0 to High(mas[i]) do
    begin
      mas[i, j] := Random(100);
      Sg.Cells[j, i] := IntToStr(mas[i, j]);
    end;
 
  S := '';
  for i := 0 to High(mas) do
  begin
    max := mas[i, 0];
    for j := 1 to High(mas[i]) do
      if mas[i, j] > max then
        max := mas[i, j];
    if i > 0 then
      S := S + ', ';
    S := S + IntToStr(max);
  end;
  Edit1.Text := S;
 
 
    D := '';
  for i := 0 to Low(mas) do
  begin
    min := mas[i, 0];
    for j := 1 to Low(mas[i]) do
      if mas[i, j] < min then
        min := mas[i, j];
    if i < 0 then
      D := D + ', ';
    D := D + IntToStr(min);
 
end;
   Edit2.Text := D;
end;
end.