Переделайте из C++ в Delphi

[vadiprog]

Пожалуйста переделайте:

const int LIMIT = 1e5 + 10;
  int a, b, n;
  cin >> a >> b >> n;
  char min = 'A', max = 'B';
  bool real = false;
  if (b < a)
  {
    swap(a, b);
    swap(min, max);
  }
  int bV = 0, aV = 0;
 
  int k = 0;
  do
  {
    k++; /*printf(">%c\n",min);*/        
    k++; /*printf("%c>%c\n", min, max);*/    
    if (b - bV >= a)
      bV += a;
    else
    {
      bV = a - (b - bV);
      k++; /*printf("%c>\n",max);*/     
      k++; /*printf("%c>%c\n", min, max);*/  
    }
    if (n == bV)
    {
      real = true;
      break;
    }
  }
  while(k <= LIMIT);
 
  if (real) 
  {
    bV = 0;
    do
    {
      printf(">%c\n",min);        
      printf("%c>%c\n", min, max);    
      if (b - bV >= a)
        bV += a;
      else
      {
        bV = a - (b - bV);
        printf("%c>\n",max);      
        printf("%c>%c\n", min, max);  
      }
      if (n == bV)
        break;
    }
    while(true);
  }
  else
    cout<<"Impossible";