MQL 5 . bear engulfing EA built on ChatGpt shows no error on compile but sell trade not executing at market price

This is the code , there is no error on compile but its not executing order on market price : 

// Input parameters
input double RiskPercentage = 0.4;  // Risk percentage per trade
input double TakeProfitPercentage = 0.7;  // Take profit percentage per trade

// Global variables
int MagicNumber = 12345;  // Unique identifier for the EA

// Calculate position size based on risk percentage
double CalculatePositionSize(double price, double riskPercentage)
{
    double accountBalance = AccountInfoDouble(ACCOUNT_BALANCE);
    double positionSize = (accountBalance * riskPercentage) / price;
    return positionSize;
}

// Calculate take profit based on account balance and take profit percentage
double CalculateTakeProfit(double accountBalance, double takeProfitPercentage)
{
    double takeProfit = (accountBalance * takeProfitPercentage) / 100.0;
    return takeProfit;
}

// Check for bearish engulfing pattern
bool BearishEngulfingPattern()
{
    double prevClose = iClose(_Symbol, PERIOD_M30, 1);
    double prevOpen = iOpen(_Symbol, PERIOD_M30, 1);
    double prevLow = iLow(_Symbol, PERIOD_M30, 1);
    double currClose = iClose(_Symbol, PERIOD_M30, 0);
    double currOpen = iOpen(_Symbol, PERIOD_M30, 0);
    double currLow = iLow(_Symbol, PERIOD_M30, 0);

    bool isPrevBullish = prevClose > prevOpen;
    bool isCurrBearish = currClose < currOpen;
    bool isEngulfing = currOpen > prevClose && currClose < prevOpen;
    bool isCurrLowLower = currLow < prevLow;
    bool isCurrOpenGreaterOrEqual = currOpen >= prevClose;

    if (isPrevBullish && isCurrBearish && isEngulfing && isCurrLowLower && isCurrOpenGreaterOrEqual)
    {
        return true;
    }

    return false;
}

// Entry function
void OnTick()
{
    // Check for bearish engulfing pattern
    if (BearishEngulfingPattern())
    {
        double entryPrice = SymbolInfoDouble(_Symbol, SYMBOL_ASK);

        // Calculate position size based on risk percentage
        double positionSize = CalculatePositionSize(entryPrice, RiskPercentage);

        // Calculate take profit based on account balance and take profit percentage
        double accountBalance = AccountInfoDouble(ACCOUNT_BALANCE);
        double takeProfit = CalculateTakeProfit(accountBalance, TakeProfitPercentage);

        // Calculate stop loss at the high of the engulfing candle
        double stopLoss = iHigh(_Symbol,PERIOD_M30,0);

        // Open the sell order at market price
        MqlTradeRequest request;
        request.action = TRADE_ACTION_DEAL;
        request.symbol = _Symbol;
        request.volume = positionSize;
        request.type = ORDER_TYPE_SELL;
        request.price = 0.0;  // Set price to 0 for market execution
        request.sl = stopLoss;
        request.tp = entryPrice - takeProfit;
        request.magic = MagicNumber;
        request.deviation = 3;
        request.type_filling = ORDER_FILLING_RETURN;

        MqlTradeResult result;

        if (OrderSend(request, result))
        {
            Print("Sell order opened successfully. Ticket: ", result.order);
        }
        else
        {
            Print("Error opening sell order: ", GetLastError());
        }
    }
}