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

#include <stdio.h>
#include <string.h>
 
char *gets_s(char * restrict str, size_t num)
{
    char *s = fgets(str, num, stdin);
    if (s)
    {
        int n = strlen(str) - 1;
        str += n;
        if (*str == '\n')
            *str = '\0';
    }
    return s;
}
 
int main()
{
    char string[34];
    while (1)
    {
        puts("Введите число (не более 33 цифр) или символ 'q' для выхода");
        if (*gets_s(string, 34) == 'q' && string[1] == '\0')
            break;
        int len = strlen(string);
        unsigned char number[len];
        number[len - 1] = 0;
        unsigned long long result = len > 1 ? (1llu << len) - 2 : 0;
        for (int i = 0; i < len; i++)
        {
            unsigned char digit = string[i] - 48;
            if (digit < 4)
            {
                for (int j = i - 1; j >= 0; j--)
                    if (number[j] == 7)
                    {
                        number[j] = 4;
                        for (int k = j + 1; k < len; k++)
                            number[k] = 7;
                        break;
                    }
                break;
            }
            if (digit > 4 && digit < 7)
            {
                number[i] = 4;      
                for (int j = i + 1; j < len; j++)
                    number[j] = 7;
                break;
            }
            if (digit > 7)
            {    
                for (int j = i; j < len; j++)
                    number[j] = 7;
                break;
            }                        
            number[i] = digit;
        }
        if (number[len - 1])
        {
            unsigned long long res = number[len -1] == 4 ? 1 : 2;          
            for (int i = len - 2; i >= 0; i--)
                if (number[i] == 7)
                   res += 1llu << (len - 1 - i);
            result += res;
        }    
        printf("%llu\n", result);
    }
    return 0;
}