Решение задачи String 54

#include <bits/stdc++.h>

using namespace std;

int main()
{
    system("chcp 1251");
    int k = 0;
    string s;
    getline(cin, s);
    int pos = s.find_first_of("уеоаыи");
    while(pos + 1){
        ++k;
        pos = s.find_first_of("уеоаыи", pos + 1);
    }
    cout << k;
    return 0;
}

program String54;
var
 S:String;
 i,Num:integer;
 
begin
  Write('S: ');
  Readln(S);
 
  i:=1;
  Num:=0;
  While (i<=Length(S)) do
   begin
    if ord(S[i]) in [160,165,168,174,227,235,237,238,239,241,
                     128,133,136,142,147,155,157,158,159,240] then inc(Num);
    //160-'а',165-'е',168-'и',174-'о',227-'у',235-'ы',237-'э',238-'ю',239-'я',241-'ё'
    //128-'А',133-'Е',136-'И',142-'О',147-'У',155-'Ы',157-'Э',158-'Ю',159-'Я',240-'Ё'
 
    inc(i);
   end;
 
  Writeln(Num);
end.