// Метод повертає позицію оператора найвищого пріорітету в підвиразі, якщо оператор не знайдено повертає 0
Function TOperand.PositionOperator(Const PExpression: String): UInt64;
Begin

  Case True Of
    OperatorInExpression('^', PExpression): Result := PositionInExpression('^', PExpression);
    OperatorInExpression('√', PExpression): Result := PositionInExpression('√', PExpression);
    OperatorInExpression('*', PExpression): Result := PositionInExpression('*', PExpression);
    OperatorInExpression('/', PExpression): Result := PositionInExpression('/', PExpression);
    OperatorInExpression('+', PExpression): Result := PositionInExpression('+', PExpression);
    OperatorInExpression('-', PExpression):
      Begin
        For Var I := 1 To LengthExpression(PExpression) Do
          If (I = 1) And (PExpression[i] = '-') Then
            Continue                      
          Else If  (PExpression[i] = '-') Then
          Begin
            Result := I;           
            Break               
          End

      End
    Else Result := 0
  End

End;

// Метод повертає позицію оператора найвищого пріорітету в підвиразі, якщо оператор не знайдено повертає 0
Function TOperand.PositionOperator(Const PExpression: String): UInt64;
Begin
  // Якщо жодного оператора не знайдено, повертаємо 0
  Result := 0;

  If OperatorInExpression('^', PExpression) Then
    Result := PositionInExpression('^', PExpression)
  Else If OperatorInExpression('√', PExpression) Then
    Result := PositionInExpression('^', PExpression)
  Else If OperatorInExpression('*', PExpression) Or OperatorInExpression('/', PExpression) Then
  Begin
                                // Від початку виразу і до кінця виразу Виконати
    For Var I := 1 To LengthExpression(PExpression) Do
                        // Якщо символ виразу є оператор '*' Або оператор '/' То
    If (PExpression[i] = '*') Or (PExpression[i] = '/') Then
    Begin
      Result := I;                    // Результату присвоюємо позицію оператора
      Break                                                  // Виходимо з циклу
    End
  End
  Else If OperatorInExpression('+', PExpression) Or OperatorInExpression('-', PExpression) Then
  Begin
                                // Від початку виразу і до кінця виразу Виконати
    For Var I := 1 To LengthExpression(PExpression) Do
    Begin
                                       // Якщо першим символом іде оператор - То
      If (I = 1) And (PExpression[i] = '-') Then
        Continue                       // переходимо до наступної ітерації циклу
                // Інакше, Якщо символ виразу є оператор '+' Або оператор '-' То
      Else
        If (PExpression[i] = '+') Or (PExpression[i] = '-') Then
        Begin
          Result := I;                // Результату присвоюємо позицію оператора
          Break                                              // Виходимо з циклу
        End
    End
  End
End;

           // Метод повертає Істина якшо у виразі знайдено математичний оператор
Function TOperand.OperatorInExpression(Const POperator: WideChar; Const PExpression: String): Boolean;
Begin
  Result := False;

  For Var Op In PExpression Do
    If Op = POperator Then
    Begin
      Result := True;
      Exit
    End

End;

                   // Метод повертає першу позицію підвиразу знайденого в виразі
Function TSystemUtilities.PositionInExpression(Const PSubExpression, PExpression: String): UInt64;
Var
  J: UInt64;       // Лічильники для циклу, визначає поточну позицію в підвиразі
Begin
  Result := 0;                                  // Ініціалізуємо результат нулем

                                     // Пошук першого символу підвиразу в виразі
  For Var I := 1 To LengthExpression(PExpression) Do
  Begin
                  // Якщо символ виразу співпадає з першим символом підвиразу То
    If PExpression[i] = PSubExpression[1] Then
    Begin
                      // Порівнюємо підвираз з виразом, перевіряючи кожен символ
      J := 1;                               // Стаємо на перший символ підвиразу
      // Поки символ підвиразу <= довжини підвиразу І символи виразу та підвиразу співпадають Виконати
      While (J <= LengthExpression(PSubExpression)) And
            (I + J - 1 <= LengthExpression(PExpression)) And // Відповідний символ виразу < за довжину виразу І
            (PExpression[I + J - 1] = PSubExpression[J]) Do // Символи виразу та підвиразу співпадають Виконати
        IncreaseByOne(J);          // Переходимо до наступного символу підвиразу

      // Якщо всі символи підвиразу співпали з виразом То
      If J > LengthExpression(PSubExpression) Then
      Begin
        Result := I; // Повертаємо позицію, з якої починається підвираз у виразі
        Exit;                                              // Виходимо з функції
      End
    End
  End

End;