В каждой строке матрицы поменять местами максимальный элемент с элементом побочной диагонали

 for i:=0 to stringgrid1.rowCount-1 do
begin
    min:=0;
    max:=0;
    for j:=1 to stringgrid1.ColCount-1 do
    begin
         if strtoint(stringgrid1.cells[i,j])>strtoint(stringgrid1.cells[i,max]) then
            max:=j;
         if strtoint(stringgrid1.cells[i,j])<strtoint(stringgrid1.cells[i,min]) then
            min:=j;
         if min=max then
            messagedlg('все элементы в строке '+inttostr(i)+' равны', mtwarning, [mbok], 0);
    end;
    a:=stringgrid2.cells[stringgrid2.colcount-i-1, i];
    stringgrid2.cells[stringgrid2.colcount-i-1,i]:=stringgrid2.cells[max,i];
    stringgrid2.cells[max,i]:=a;
end;
end;
end;

//матрица наверное динамическая?
for i:=0 to n-1 do
 begin
  max:=0;
  for j:=1 to n-1 do
  if x[i,j]>x[i,max] then  max:=j;//находим номер максимального
  if max<>n-i-1 then //если он не на побочной диагонали
                     //(для статистического масива x[i,n-i+1])
   begin
    a:=x[i,max];
    x[i,max]:=x[i,n-i-1];//обмениваем местами
    x[i,n-i-1]:=a;
   end;
 end;
//и заносим измененную матрицу в таблицу 2