[Drozh]

В основном у тебя все верно, просто с коэффициентами i и j напутался. Вот это вроде рабочий вариант

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 Max, i, j: integer;
begin

 for i := 0 to n do
 begin
  Max := B[0, i];

   for j := 1 to n do
    if B[j, i] > Max then Max := B[j, i]; // максимальное значение

   for j := 0 to n do
    StringGrid3.Cells[j, i] := IntToStr(A[j, i]*Max); // перемножаем соотв. коэффициенты
 end;
end;


procedure TForm1.Button3Click(Sender: TObject);
var
 Mul, i, j: integer;
begin
 for i := 0 to n do
 begin
  Mul := 1;

   for j := 0 to n do
    Mul := Mul*B[j, i]; // находим произведение элементов строки

   for j := 0 to n do
    StringGrid3.Cells[i, j] := IntToStr(A[i, j] + Mul);
 end;
end;