Найти четырехзначные числа сумма цифр которых равна заданному числу...

int zn1; //Заданное число.
bool bl1;
short ed1,dc1,st1,tc1;
AnsiString S1;
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 bl1 = true;
 for(int i = 1000;i <10000;i++)
   {
    S1 = IntToStr(i);
    ed1 = StrToInt(S1.SubString(4,1));
    dc1 = StrToInt(S1.SubString(3,1));
    st1 = StrToInt(S1.SubString(2,1));
    tc1 = StrToInt(S1.SubString(1,1));
    if((ed1+dc1+tc1+st1) == zn1)
      {
       Memo1->Lines->Add(S1);
       bl1 = false;
      }
   };
 if(bl1)Memo1->Lines->Add("Таких чисел нет.");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::CSpinEdit1Change(TObject *Sender)
{
 zn1 = CSpinEdit1->Value;
}
//---------------------------------------------------------------------------

//---------------------------------------------------------------------------
#include <windows.h>
#pragma hdrstop
#include <iostream.h>
#include <stdio.h>
#include <conio.h>
#include <String.h>
//---------------------------------------------------------------------------
#pragma argsused
void main(){
int n,i1,i2,i3,i4;
char s[3];
cout<<"Vvedika^^:";
cin>>n;
for(int i=1000; i<=9999;itoa(i++,s,10);){
        i1=(char)s[0]-48;
        i2=(char)s[1]-48;
        i3=(char)s[2]-48;
        i4=(char)s[3]-48;
        if((i1+i2+i3+i4)==n)cout<<i<<"\n";
        }
system("pause");
}
//---------------------------------------------------------------------------

for(int i=1000; i<=9999;itoa(i++,s,10);)

for(int i=1000; i<=9999;itoa(i++,s,10))