int __fastcall TForm1::Filter1(int i,int j)
{
 int MPF;
 int p[10],temp;
 p[1]=p1[i-1][j-1];
 p[2]=p1[i][j-1];
 p[3]=p1[i 1][j-1];
 p[4]=p1[i-1][j];
 p[5]=p1[i][j];
 p[6]=p1[i 1][j];
 p[7]=p1[i-1][j 1];
 p[8]=p1[i][j 1];
 p[9]=p1[i 1][j 1];     for (int x=1;x＜9 ;x  )
 {
   for (int y=x 1;y＜10;y  )
   {
     if (p[x]＜p[y])
      {
        temp=p[x];
        p[x]=p[y];
        p[y]=temp;
      }
   }
 }
 MPF=(p[5]);
 if (MPF＜0)
 MPF=(-1)*MPF;
 return (MPF);
}