Пернетақтада жоқ символдарды не үшін қолданамыз

// PascalABC.NET 3.3, сборка 1627 от 27.01.2018
// Внимание! Если программа не работает, обновите версию!

begin
  // вводим строку, перекодируем к нижнему регистру и делим на два слова
  var a:=ReadlnString.ToLower.ToWords;
  var (n1,n2):=(a[0].Length,a[1].Length); // длины слов
  if n1<>n2 then begin Writeln('No'); exit end;
  for var i:=1 to n1 do begin
    var p:=Pos(a[0][i],a[1]);
    if p=0 then begin Writeln('No'); exit end;
    Delete(a[1],p,1)
    end;
  Writeln('Yes')  
end.

Примеры
stop pots
Yes

aBbC bAc
No

ПароВоз ЗовоПар
Yes

#include <iostream>
#include <set>

using namespace std;
int main()
{
    string s;
    cin >> s;
    set<char> s1 = {'a','e','i','o','u','y'};
    set<char> s2 = {'b','c','d','f','g','h','j','k','l','m','n','p','q','r','s','t','v','w','x','z'};
    int n1 = 0, n2 = 0;
    for(int i=0; i<s.length(); i++) {
      if(s1.find(s[i]) != s1.end()) n1++;
       else if(s2.find(s[i]) != s2.end()) n2++;
    }
    cout << n1 << " " << n2 << "\n";
    if (n1>n2) cout << "Гласных больше";
     else if (n1<n2) cout << "Согласных больше";
      else cout << "Кол-во гласных = кол-ву согласных";
    return 0;
}

Пример:
program_var.
3 7
Согласных больше