не работает программа

[Rusic]

Программа выдает ошибку посмотрите возможно вы найдете!!
Благодарю !!!!!!
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#include <math.h>
#include <conio.h>
#include <iostream.h>
#include <string.h>
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//зчитуваня початкового числа
sprintf(s,"%s",Edit1->Text.c_str()); // копіюємо текст в рядок S
sscanf(s,"%s",&szInitialNumber); // зчитуємо значення із рядка S
l=strlen(s);
// зчитування початкової системи числення
sprintf(s,"%s",Edit2->Text.c_str());
sscanf(s,"%i",&InitialSystem);
//зчитування потрібної системи числення
sprintf(s,"%s",Edit3->Text.c_str());
sscanf(s,"%i",&NecessarySystem);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
for(i=0; i<l; i++)
if( szInitialNumber[i]=='.')
SplitPoint=i;
for(i=0; i<SplitPoint; i++)
szIntegralPart[i]=szInitialNumber[i];
for(i=SplitPoint+1; i<l; i++)
szFractionalPart[i]=szInitialNumber[i];

l2=l-SplitPoint-1;
l1=l-l2-1;
// перетворення цілої частини
for(i=0; i<l1; i++)
for(j=0;j<=100;j++)
if(szIntegralPart[i]==( j >= 10 ? 'A' + j - 10 : '0' + j ))
u[i]=j;

e=0;
for(i=0; i<l1-1; i++)
e=(u[i]+e)*InitialSystem;
n=e+u[l1-1];
m=0;
for(i=0; n>=m; i++)
{
m=pow(NecessarySystem, i);
ll=i-1;
}
for(k=ll; k>=0; k--)
{
t=pow(NecessarySystem, k);
x=n/t;
o[k]=x;
for(j=0; j<100; j++)
if(o[k]==j)
w[k]=( j >= 10 ? 'A' + j - 10 : '0' + j ) ;
n=n%t;
}
lll=strlen(w);
for(i=0; i<=ll; i++)
szGetIntegralPart[i]=w[ll-i];
// перетворення дробової частини
for(i=SplitPoint+1; i<l; i++)
for(j=0; j<=100; j++)
if(szFractionalPart[i]==( j >= 10 ? 'A' + j - 10 : '0' + j ))
u1[i]=j;
e1=0;
pp=InitialSystem;
r=1/pp;
for(i=l-1;i>SplitPoint;i--)
e1=(u1[i]+e1)*r;
n1=e1;
nn[0]=n1;
for(i=0; i<20; i++)
{
nn[i+1]=nn[i]*NecessarySystem;
if(nn[i+1]>=1)
{
nnn[i+1]=nn[i+1];
nn[i+1]=nn[i+1]-nnn[i+1];
}
else
{
nn[i+1]=nn[i+1];
nnn[i+1]=nn[i+1];
}
}
for(k=1; k<20; k++)
for(j=0; j<100; j++)
if(nnn[k]==j)
szGetFractionalPart[k]=( j >= 10 ? 'A' + j - 10 : '0' + j );
for(k=0; k<20; k++)
szGetFractionalPart[k]=szGetFractionalPart[k+1];

Edit4->Text=PP;

if(u[0]==0)
szGetIntegralPart[0]='0';
sprintf(s,"%s.%s", szGetIntegralPart, szGetFractionalPart);
Edit4->Text=s;

for(i=0;i<=ll;i++)
szGetIntegralPart[i]=PP[i];
for(i=0;i<=40;i++)
szGetFractionalPart[i]=PP[i];
}
//---------------------------------------------------------------------------
void __fastcall TForm1::N1Click(TObject *Sender)
{
Close();
}

[Гром]

Мы бы нашли ее гораздо быстрее, если бы:
а. Вы использовали тег CODE (значок #)
б. Вы бы привели сообщение компилятора об ошибке с указанием строки, на которую он ругается. Или это вы предлагаете в игру сыграть?
Кстати, вы вообще переменные объявляете??

[Carbon]

Название темы поменяйте.