void __fastcall TForm1::Button1Click(TObject *Sender)


}

for(m=0;m