Найти максимальный элемент второй строки таблицы и заменить его на сумму элементов второго столбца

var
  Form1: TForm1;
 sm,j,i,s,b,n,p,max:integer;
procedure TForm1.FormCreate(Sender: TObject);
begin
 
StringGrid1.Cells[1,0]:='1';
StringGrid1.Cells[2,0]:='2';
StringGrid1.Cells[3,0]:='3';
StringGrid1.Cells[4,0]:='4';
StringGrid1.Cells[5,0]:='5';
 
StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[0,2]:='2';
StringGrid1.Cells[0,3]:='3';
StringGrid1.Cells[0,4]:='4';
 
 
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
randomize ;
n:=StringGrid1.RowCount-1;
 
for i:=1 to n do
 begin
 s:=0;b:=0;
 for j:=1 to 5 do
  begin
  if StringGrid1.Cells[j,i]='' then StringGrid1.Cells[j,i]:='0';
  p:=StrToInt(StringGrid1.Cells[j,i]);
  StringGrid1.Cells[j,i]:=IntToStr(random(10));
end;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
max:=StrToInt( StringGrid1.Cells[2,1]) ;
j:=1;
for i:=1 to StrToInt( StringGrid1.Cells[2,1]) do
if StrToInt( StringGrid1.Cells[2,i])>max then
begin
max:=StrToInt( StringGrid1.Cells[2,1]) ;
j:=1;
 end;
label2.caption:='Максимальный элимент второй строки'+IntToStr(max);
sm:=0
 for i:=1 to StrToInt( StringGrid1.Cells[2,1]) do
sm:=sm+StrToInt(StringGrid1.Cells[i,2]);
label3.caption:='Сумма второго столбца'+IntToStr(sm);
sm:=StrToInt(StringGrid1.Cells[2,j]);
 for i:=1 to StrToInt(StringGrid1.Cells[i,j]) do
end;
end.

procedure TForm1.FormCreate(Sender: TObject);
var i:Byte;
begin
with StringGrid1 do
 begin
  for i:=1 to 5 do
   begin
    Cells[i,0]:=IntToStr(i);
    if i<5  then Cells[0,i]:=IntToStr(i);
   end;
 end;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var i,j,max,s,b:Integer;
begin
randomize ;
s:=0;b:=1;
for i:=1 to StringGrid1.RowCount-1 do
for j:=1 to StringGrid1.ColCount-1 do
 begin
  StringGrid1.Cells[j,i]:=IntToStr(Random(10));
  if j=2 then s:=s+StrToInt( StringGrid1.Cells[j,i]);
  if i=2 then
   begin
    if j=1 then max:=StrToInt(StringGrid1.Cells[j,i])
    else if StrToInt(StringGrid1.Cells[j,i])>max then
     begin
      max:=StrToInt(StringGrid1.Cells[j,i]);
      b:=j;
     end;
   end;
  end;
label2.caption:='Максимальный элемент второй строки [2,'+inttostr(b)+']= '+IntToStr(max);
label3.caption:='Сумма второго столбца='+IntToStr(s);
StringGrid1.Cells[b,2]:=inttostr(s);
end;