Помогите пжалста с задачей в С++ Builder

[Stan777]

Формучане, помогите пжалста решить задачу в С++ Builder

Найти число помощников деда из
известной сказки про репку, если:
- для вытягивания репки надо
развить усилие в N кг;
- дед тянет с усилием D кг;
- каждый I-й помощник тянет с
усилием S/(i/(i+1)), где S - общее
усилие всех предыдущих
участников
вытягивания

void __fastcall TForm1::Button15Click(TObject *Sender)
{int n,d,s,i,k;

d=StrToInt(LabeledEdit22->Text);
n=StrToInt(LabeledEdit23->Text);
i=0;
s=d;
if (d>=n) { Memo13->Lines->Add("Без помошников"); }
else
while (s<=n); {
i=i+1;
k=s/(i/(i+1));
s=s+k; }
switch (i%10) {
case 1: Memo13->Lines->Add(" 'i' помошник"); break;
case 2: Memo13->Lines->Add(" 'i' помошник"); break;
case 3: Memo13->Lines->Add(" 'i' помошник"); break;
case 4: Memo13->Lines->Add(" 'i' помошник"); break;
case 5-9: Memo13->Lines->Add(" 'i' помошников"); break;
default: Memo13->Lines->Add("ошибка"); break;
}

Builder выдает Code has no effect, и в Memo ничего не выводит

[Банзай]

здесь ошибка
while (s<=n); {