Project raised exception class EDivByZero with message 'Division by zero'

//---------------------------------------------------------------------------
 
#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)
{
int e=StrToInt(Edit1->Text);
int X=StrToInt(Edit2->Text);
int Y=StrToInt(Edit3->Text);
int i,j,L,P1,P2;
int *M=new int[e];
int *MS=new int[e];
AnsiString str=Edit4->Text;
str=str+" ";
L=str.Length();
for(i=1;i<=L;i++){
j=str.Pos(' ')-1;
M[i-1]=StrToInt(str.SubString(1,j));
str.Delete(1,j+1);
L-=j;
}
int k=0;
for(int i=0;i<e;i++){
if (X<=M[i]<=Y){
MS[k]=M[i];
k++;
}
}
int min=MS[0];
for(int i=0;i<e;i++){
if(MS[i]<min){
min=MS[i];
}
}
Edit5->Text=IntToStr(min);
if(k==0){
Edit5->Text="Не существует";
}
for(i=0;;i++) if(M[i]%2==0)
{
P1=i;
break;
}
int pmin=M[i];
for(i=e;;i--) if(M[i]<pmin)
{
pmin=M[i];
P2=i;
break;
}
int S=0;
int count=0;
for(i=P1+1;i<P2;i++)
{
S=M[i];
count++;
}
double SR=S/count;
Edit6->Text=FloatToStr(SR);
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Edit1->Clear();
Edit2->Clear();
Edit3->Clear();
Edit4->Clear();
Edit5->Clear();
Edit6->Clear();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------