Высокоуровневые методы информатики и программирования. Сивохин А.В - 92 стр.

       kCol : Integer;//-для организации цикла по колонкам выходной таблиц;ы
       jRow : Integer;//-для организации цикла по рядам(строкам) таблиц;
      begin
       Sum:=0.0;
       kCol:=0;
       For iCol:=1 to InStringGrid.ColCount-1 do
         Try
           Sum:= Sum+StrToFloat(InStringGrid.Cells[iCol,jSelRow]);
           InDynArray[iCol-1]:= StrToFloat(InStringGrid.Cells[iCol,jSelRow]);
         Except
           on EConvertError do
             ShowMessage('Форматы ввода числовых данных: 23;2,3;6E5;6.7E+6;8.9E-
3;8.8e5 и т.д.');
         End;
         MidValue:=Sum /(InStringGrid.ColCount-1);
         MidEdit.Text:=FloatToStr(MidValue);
       For iCol:=0 to DynArraySize-1 do
         If InDynArray[iCol]<=MidValue then
           Try
            OutDynArray[kCol]:= InDynArray[iCol];
            OutStringGrid.Cells[kCol+1,jSelRow]:=FloatToStr(OutDynArray[kCol]);
            kCol:=kCol+1;
           Except
            on EConvertError do
            ShowMessage('Форматы ввода числовых данных: 23;2,3;6E5;6.7E+6;8.9E-
3;8.8e5 и т.д.');
           End;
       kMaxCol:=kCol;
      end;

     procedure TOrlovArrayForm.InStringGridSelectCell(Sender: TObject; ACol,
      ARow: Integer; var CanSelect: Boolean);
     begin
      jSelRow := ARow; //-выбор вектора;
     end;

     procedure TOrlovArrayForm.GraphicButtonClick(Sender: TObject);
     var
      iIn : Integer;
      iOut : Integer;
      iMid : Integer;
     begin
       InSeries.Clear;
       For iIn:=0 to DynArraySize-1 do
        InSeries.AddXY(iIn,InDynArray[iIn],'',clRed);
       OutSeries.Clear;
       For iOut:=0 to kMaxCol-1 do
69