Написать программу (паскаль) вычисляющую сумму и разность элементов массива (целые числа, размерность 10)

PascalABC.NET 3.4.2, сборка 1978 (12.02.2019)

Строка = молоко
пока (есть буква о) делать
начало
если есть буква о 
получаем индекс буквы о
строке присвоить подстроку от 0 до индекса буквы 0 + от индекса буквы 0 до длинны строки
конец
если не понятно пиши в личку
а если записать допустим на java то это будет выглядеть так

String word = "Молоко";
word = word.replaceAll('o','');
или
String word = "Молоко";
int index = word.indexOf('o');
while(index > 0 ){
word = word.substring(0,index) + word.substing(index+1,word.length());
index = word.indexOf('o');
}

как то так

#include <iostream>

#include <stack>

using namespace std;

void solve(string &s){

   stack<char> cur;

   for(int i = 0; i < s.size(); i++){

       if(!cur.empty() && ((cur.top() == '(' && s[i] == ')') || (cur.top() == '{' && s[i] == '}') || (cur.top() == '[' && s[i] == ']')))

           cur.pop();

       else cur.push(s[i]);

   }

   if(cur.empty()) cout << "YES";

   else cout << "NO";

}

signed main() {

   string str;

   cin >> str;

   solve(str);

}