Вычислить с помощью функции сумму отрицательных элементов массива

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
 
DynamicArray<int> array;
 
int Summa(DynamicArray<int> Param)
{
  int s = 0;
  for(int i(Param.Low); i <= Param.High; i++)
   if(Param[i] < 0) s += Param[i];
  return s;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormActivate(TObject *Sender)
{
  Memo1->Clear();
  Memo2->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  int j = 0, k;
  for(int i = 0; i < Memo1->Lines->Count; i++)
   {
     k = StrToInt(Memo1->Lines->Strings[i]);
     if(abs(k) > 9 && abs(k) < 100)
      {
        array.Length++;
        array[j] = k;
        j++;
      }
   }
  for(int i(array.Low); i <= array.High; i++) Memo2->Lines->Add(array[i]);
  Label3->Caption = "Сумма отрицательных элементов массива двузначных чисел: "+IntToStr(Summa(array));
}