Переведите код с С++ на Pascal

#include <iostream>;
#include <string>;
#include <conio.h>;
 
using namespace std;
 
const int RANK = 8; //Шаг 1.
 
string FromDecimalToBinary(string, int);
string FromBinaryToDecimal(string);
string SumBinary(string, string, int);
bool ifDecimalValid(string);
 
int main()
{
    string Value1, Value2, SumValue; //Шаг 2.
    setlocale(LC_ALL, "Russian");
    
    while(true)
    {
    cout << "Введите первое слогаемое: ";
    cin >> Value1; //Шаг 3.
    if (!(ifDecimalValid(Value1))) {cout << "Число должно быть положительное и целое!" << endl; continue;} //Шаг 4.
    Value1 = FromDecimalToBinary(Value1, RANK); //Шаг 5.
    if (Value1 == "ERROR") {cout << "Данное число в двоичном представленни займет больше " << RANK << " разрядов!" << endl; continue;} //Шаг 6.
    break;
    }
 
    cout << "Первое слогаемое в двоичном представленни: " << Value1 << endl; //Шаг 7.
    
    while(true)
    {
    cout << "Введите второе слогаемое: "; 
    cin >> Value2; //Шаг 8.
    if (!(ifDecimalValid(Value2))) {cout << "Число должно быть положительное и целое!" << endl; continue;} //Шаг 9.
    Value2 = FromDecimalToBinary(Value2, RANK); //Шаг 10.
    if (Value2 == "ERROR") {cout << "Данное число в двоичном представленни займет больше " << RANK << " разрядов!" << endl; continue;} //Шаг 11.
    break;
    }
 
    cout << "Второе слогаемое в двоичном представленни: " << Value2 << endl; //Шаг 12.
 
    SumValue = SumBinary(Value1, Value2, RANK); //Шаг 13.
    if (SumValue == "ERROR") //Шаг 14.
    {
    cout << "Сумму невозможно в двоичной системе счисления представить используя " << RANK << "разрядов"  << endl;
    system("Pause");
    return 0;
    }
    cout << "Сумма двух слогаемых в двоичной системе счеслении: " << SumValue << endl; //Шаг 15.
 
    SumValue = FromBinaryToDecimal(SumValue); //Шаг 16.
    cout << "Сумма двух слогаемых в десятичной системе счеслении: " << SumValue << endl; //Шаг 17.
 
    system("Pause");
 
    return 0;
}
 
string FromDecimalToBinary(string value, int RANK)
{
    string Binary; int Decimal = 0;
    for (int i = value.length()-1, grade = 1; i > -1; i--, grade *= 10)
    {
        Decimal = Decimal + (value[i] - '0')* grade;
    }
    for (; Decimal != 0; Decimal/=2) { Binary = char((Decimal%2) + '0') + Binary; }
    
    if (Binary.length() > RANK) { return "ERROR"; } 
    
    for (int i = Binary.length(); i < RANK; i++) { Binary = '0' + Binary; }
 
    return Binary;
}
 
string FromBinaryToDecimal(string value)
{
    string Result; int Decimal = 0;
    for (int i = value.length()-1, grade = 1; i > -1; i--, grade *= 2)
    {
        Decimal = Decimal + (value[i] - '0')*grade;
    }
    while (Decimal != 0)
    {
        Result = char((Decimal - (Decimal / 10) * 10) + '0') + Result;
        Decimal /= 10;
    }
 
    return Result;
}
 
string SumBinary(string v1, string v2, int RANK)
{
    string Sum, some, flag = "0";
    for (int i = RANK-1; i > -1; i--) 
    {
        some = string(flag) + v1[i] + v2[i];
        if ((some == "010") || (some == "001") || (some == "100")) { Sum = '1' + Sum; flag = '0'; continue; }
        if ((some == "011") || (some == "101") || (some == "110")) { Sum = '0' + Sum; flag = '1'; continue; }
        if (some == "111") { Sum = '1' + Sum; flag = '1'; continue; }
        if (some == "000") { Sum = '0' + Sum; flag = '0'; continue; }
    }
    if (flag == "1") { return "ERROR";  }
    return Sum;
}
 
bool ifDecimalValid(string value)
{
    for (int i = value.length() - 1; i > -1; i--)
    {
        if((value[i] <'0') && (value[i] > '9')) { return false; }
    }
    return true;
}