Странная ошибка при работе с рекурентной формулой

//---------------------------------------------------------------------------
#include <math.h>
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
long int i,n,f,b,min,max,mult = 1;
long int a[24];
long int sum=0;
n=StrToInt(Edit1->Text);
a[0]= StrToFloat(Edit2->Text);
a[1]= StrToFloat(Edit3->Text);
a[2]= StrToFloat(Edit4->Text);
for (i=3; i<n;i++)
a[i]= 2*(a[i-1]+a[i-2])+(a[i-1]+a[i-2])+0.85*a[i-3];
for (i=0; i<n;i++)
Memo1->Lines->Add("a["+IntToStr(i)+"]="+FloatToStr(a[i])+" ");
 
for (i=min=0;i<n;i++)
  {
  if (a[i]<a[min]) min=i;
  }
 Edit5->Text=FloatToStr(a[min]);
 
for (i=max=0;i<n;i++)
 {
 if (a[i]>a[max]) max=i;
 }
 Edit6->Text=FloatToStr(a[max]);
 
for (i=0;i<n;i++)
 {
 sum += a[i];
 sum = sum;
 }
 Edit7->Text=FloatToStr(sum);
 
for (i=0;i<n;i++)
{mult *= a[i];}
mult = mult;
 Edit8->Text=FloatToStr(mult);
 
sortirovka:     //метка начала сортировки
f=0;     //флажок для остановки сортировки
for (i=0; i<n; i++)     //разовая сортировка
 {
if (a[i] > a[i+1])     //условие для перестановки соседних элементов
{
b = a[i];     //временно запомнить больший элемент
a[i] = a[i+1];     //меньший сместить влево
 a[i+1] = b;     //больший сместить вправо
f=1;     //флажок для остановки сортировки
}
}
if (f==1) goto sortirovka;     //условие необходимости повторной сортировки
 for (i=0; i<n; i++)     //вывод результата сортировки
Memo2->Lines->Add(FloatToStr(a[i])+" ");
 
sortirovka2:
f=0;
for (i=0; i<n; i++)
 {
if (a[i] < a[i+1])
{
b = a[i];
a[i] = a[i+1];
 a[i+1] = b;
f=1;
}
}
if (f==1) goto sortirovka2;
 for (i=0; i<n; i++)
Memo3->Lines->Add(FloatToStr(a[i])+" ");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
Edit7->Clear();
Edit8->Clear();
Memo1->Clear();
Memo2->Clear();
Memo3->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Form1->Close();
}
//---------------------------------------------------------------------------