Конвертер алгоритмов c++ Builder в delphi и обратно

for (a=1;a<=10;a++)

for (a=1; a <= 10; a++)

for (i=100; i>=0; i-- )

//-------------для цикла for--------------------------
 if(Bufer1P=="for") {//1
  String Const[11]={"for (", ":", "=", ";", "<=", ">=", "to", "downto","++","--",")"};
  String Buf2; //для записи i
  String Buf3; //для записи числа (первое)
  String Buf4; //для записи to или downto
  String Buf5; //для записи числа (второе)
  String tyty;  //для значений
  j++;
  //****************************************
   for(int iii=j;j<=DSR1;j++){//2  для записи i-й
      tyty = RichEdit1->Lines->Strings[i][j];
       if(tyty==Const[1]) {
          break;
          }
       else{
          Buf2=Buf2+RichEdit1->Lines->Strings[i][j]; //записуем i
          }
  }//2
  //****************************************
       j= j+2;     //записуем число--------------------
       for(int iii=j;j<=DSR1;j++){//3
         if(isdigit(RichEdit1->Lines->Strings[i][j])) { //4
              // char str[3]={"as2"};
              //if(isdigit(str[2]))
               tyty = RichEdit1->Lines->Strings[i][j];
             if(tyty!=" ") {
                Buf3 = Buf3 + RichEdit1->Lines->Strings[i][j];
                }
          } //4
           else{
               break;
          } //4
       }//3
  //***************************************
       j= j++;
       for(int iii=j;j<=DSR1;j++){// для to или downto
               tyty = RichEdit1->Lines->Strings[i][j];
             if(tyty!=" ") {
                Buf4 = Buf4 + RichEdit1->Lines->Strings[i][j];
             }
              else{
                   break;
               }
       }
   //***************************************
           j= j++;     //записуем число №2--------------------
       for(int iii=j;j<=DSR1;j++){//3
         if(isdigit(RichEdit1->Lines->Strings[i][j])) { //4
              // char str[3]={"as2"};
              //if(isdigit(str[2]))
               tyty = RichEdit1->Lines->Strings[i][j];
             if(tyty!=" ") {
                Buf5 = Buf5 + RichEdit1->Lines->Strings[i][j];
                }
          } //4
           else{
               break;
          } //4
       }//3
   //***************************************
                if(Buf4==Const[6]){
                   Const[0]=Const[0]+Buf2+Const[2]+Buf3+Const[3]+Buf2+Const[4]+Buf5+Const[3]+Buf2+Const[8]+Const[10]; //"for (" + a + "=" 1;a
                  // break;
                }
                if(Buf4==Const[7]){
                   Const[0]=Const[0]+Buf2+Const[2]+Buf3+Const[3]+Buf2+Const[5]+Buf5+Const[3]+Buf2+Const[9]+Const[10];
                 //  break;
                }
 
  RichEdit2->Lines->Add(Const[0]);
  break;
 } //1
//---------------------------------------------
             //---ПОИСК------

//-------------äëÿ öèêëà for--------------------------
 if(Bufer1P=="for") {//1
  String Const[11]={"for (", ":", "=", ";", "<=", ">=", "to", "downto","++","--",")"};
  String Buf2; //äëÿ çàïèñè i
  String Buf3; //äëÿ çàïèñè ÷èñëà (ïåðâîå)
  String Buf4; //äëÿ çàïèñè to èëè downto
  String Buf5; //äëÿ çàïèñè ÷èñëà (âòîðîå)
  String Buf6; //äëÿ çàïèñè áóêâ (do)
  String tyty;  //äëÿ çíà÷åíèé
 
  int Bucva1 = true;
  int Bucva2 = false;
  int Bucva3 = false;
  int Cifra1 = true;
  int Cifra2 = false;
  int Simvol = true;
  j++;
  //****************************************
   for(int iii=j;j<=DSR1;j++){//2  äëÿ çàïèñè i-é
      tyty = RichEdit1->Lines->Strings[i][j];
      if ((isalnum(RichEdit1->Lines->Strings[i][j]))&&(Bucva1==true)) {  //ïåðâàÿ ïåðåìåíàÿ ìîæåò áûòü è ñ öèôðîé (i1-âîò òàê)
         Buf2 = Buf2 + RichEdit1->Lines->Strings[i][j];
      }
      if (tyty != " ")
      if ((isprint(RichEdit1->Lines->Strings[i][j]))&&(Simvol == true)) { //Åñëè ñèìâîë  iscntrl
         Bucva1 = false;
      }
      if ((isdigit(RichEdit1->Lines->Strings[i][j]))&&(Cifra1==true)) {  //Öèôðà ïåðâàÿ
        Bucva2 = true;
        Simvol = false;
        Buf3 = Buf3 + RichEdit1->Lines->Strings[i][j];
      }
      if ((isalpha(RichEdit1->Lines->Strings[i][j]))&&(Bucva2==true)) { //Áóêâà âòîðàÿ
       Buf4 = Buf4 + RichEdit1->Lines->Strings[i][j];
       Cifra1 = false;
       Cifra2 = true;
      }
      if ((isdigit(RichEdit1->Lines->Strings[i][j]))&&(Cifra2==true)) { //Öèôðà âòîðàÿ
          Buf5 = Buf5 + RichEdit1->Lines->Strings[i][j];
          Cifra2 = false;
          Bucva2 = false;
          Bucva3 = true;
          }
   /*  if ((isalpha(RichEdit1->Lines->Strings[i][j]))&&(Bucva3==true)) { //Áóêâà òðåòüÿ
         Buf6 = Buf6 + RichEdit1->Lines->Strings[i][j];   //
     }   */
  }//2
            if(Buf4==Const[6]){
                   Const[0]=Const[0]+Buf2+Const[2]+Buf3+Const[3]+Buf2+Const[4]+Buf5+Const[3]+Buf2+Const[8]+Const[10]; //"for (" + a + "=" 1;a
                  // break;
                }
                if(Buf4==Const[7]){
                   Const[0]=Const[0]+Buf2+Const[2]+Buf3+Const[3]+Buf2+Const[5]+Buf5+Const[3]+Buf2+Const[9]+Const[10];
                 //  break;
                }
 
  RichEdit2->Lines->Add(Const[0]);
  break;
 } //1
//---------------------------------------------
             //---ÏÎÈÑÊ------