Удалить из слова гласные, встречающиеся дважды

[Lidiya585]

Задание: удалить из слова те гласные, что встречаются дважды.
Код, который я написала

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString word;
char b;
int p;
word = Edit1->Text;
for (int i=0; i<=word.Length(); i++)
if ((b=='à')||(b=='å')||(b=='¸')||(b=='è')||(b=='î')||(b=='ó')||
(b=='û')||(b=='ý')||(b=='þ')||(b=='ÿ'))
p++;
if (p==2)
word=word.Delete(b);
}

(гласные некорректно скопировались)
word.Delete(b), как я поняла, здесь использовать нельзя. А что тогда нужно использовать?

[Smitt&Wesson]

У Вас несколько ошибок.
1. Если переменная word изменяется внутри цикла, использовать цикл for нельзя.
2. У Вас переменная p нигде не обнуляется.
3. Переменная p реагирует не на парные гласные
а на все гласные. и удаляет вторую встретившуюся.
4. Удаляются (учитываются) только пописные гласные, заглавные не учитываются.
5. word=word.Delete(b); записывается как word=word.Delete(b,1);

[Lidiya585]

Частично переделала. Как сделать, чтобы удалялись именно две повторяющиеся гласные?

void __fastcall TForm1::Button1Click(TObject *Sender)
{
AnsiString word;
char b;
int p=0, i=0;
word = Edit1->Text;
i++;
while (i<=word.Length())
{
if ((b=='а')||(b=='е')||(b=='ё')||(b=='и')||(b=='о')||(b=='у')||
(b=='ы')||(b=='э')||(b=='ю')||(b=='я'))
p++;
if (p==2)
word = word.Delete(b,1);
}
Label2 -> Caption=word;
}

[Smitt&Wesson]

int gl[10];// Массив счётчиков гласных
for(int i=1; i < 8; i++) gl[i] = 0;// Обнуляем массив
for(int i=1; i < word.Length(); i++)
{
  switch(LowerCase(word[i]))// Приводим к нижнему регистру
  {
    case 'a': gl[i]++;// Подсчитываем гласные
    ........
    case 'я': gl[i]++;
  }
}

Дальше подумай сама, как удалить гласные используя инфу в массиве gl.
Могу подсказать. Удалять буквы нужно с "хвоста" строки.