void DeleteInArray(double &f_array[], // tablica
                   double f_delete)   // wartość do usunięcia
  {
   int size=ArraySize(f_array);
//---
   for(int i=0; i<size; i++)
     {
      if(f_array[i]!=f_delete) continue;
      ArrayCopy(f_array,f_array,i,i+1);
      ArrayResize(f_array,ArraySize(f_array)-1);
      i--; size--;
     }
  }