Блок - схема

procedure TForm1.BitBtn1Click(Sender: TObject);
var a:array[1..4,1..5] of real;
    min,max: array[1..4] of real;
    i,j:integer;
begin
   for i:=1 to 4 do  //Передвижение по строкам
   for j:=1 to 5 do  //Считывание элементов строк из StringGrid1
   begin
   if Length(StringGrid1.Cells[j-1,i-1])<>0
   then a[i,j]:=StrToFloat(StringGrid1.Cells[j-1,i-1])
   else a[i,j]:=0;//Если ничего не введено, то принемаем за 0
   end;
   //Вычисление максимума и минимума строки
   for i:= 1 to 4 do
    begin
     min[i]:=a[i,1];
     max[i]:=a[i,1];
     for j:=2 to 5 do
      begin
       if a[i,j] < min[i] then min[i]:=a[i,j];
       if a[i,j] > max[i] then max[i]:=a[i,j];
      end;
     end;
    //Вывод суммы минимума и максимума в StringGrid2
      for i:=1 to 4 do
        StringGrid2.Cells[0,i-1]:=FloatToStr(min[i])+'+'+
                                  FloatToStr(max[i])+'='+
                                  FloatToStr(min[i]+max[i]);
   end;