Перевести код из Python в Pascal

ar = []
n = int(input())
def binary(n):
    while n > 0:
        ar.append(n % 2)
        n = n // 2
    return ar
 
 
print(binary(n))
if len(ar) < 11:
    while len(ar) < 11:
        ar.append(0)
ar.reverse()
 
 
def IndBits (m):
    for i in range(m):
        if (2 ** i >= m + i + 1):
            return i
 
 
def AddBits(ar, r):
    j = 0
    k = 1
    m = len(ar)
    arr = []
    for i in range(1, m + r + 1):
        if (i == 2 ** j):
            arr.append(0)
            j += 1
        else:
            arr.append(ar[-1 * k])
            k += 1
    return arr[::-1]
 
 
 
 
m = len(ar)
r = IndBits(m)
print(str(r) + " сколько добавочных битов")
print(str(ar) + " доб. нули до 11 бит")
res = AddBits(ar, r)
print(str(res) + " число с добавочными битами" )
 
def f1 (res):
    first = []
    a = 1
    for item in range(int(len(res)/2)+1):
        first.append(res[-1*a])
        a+=2
    firstSum = 0
    for i in first:
        if first[i] == 1:
            firstSum +=1
    if firstSum % 2 == 0:
        res[-1] = 0
    else:
        res[-1] = 1
def f2 (res):
    second = []
    b = -2
    for item in range(int(len(res)/4)+1):
        second.append(res[b])
        b = b - 1
        second.append(res[b])
        b = b - 3
    secondSum = 0
    for i in second:
        if second[i] == 1:
            secondSum +=1
    if secondSum % 2 == 0:
        res[-2] = 0
    else:
        res[-2] = 1
 
def f4 (res):
    fourth = []
    c = -4
    for item in range(int(len(res)/8)):
        fourth.append(res[c])
        c = c - 1
        fourth.append(res[c])
        c = c - 2
        fourth.append(res[c])
        c = c - 3
        fourth.append(res[c])
        c = c - 8
    fourthSum = 0
    for i in fourth:
        if fourth[i] == 1:
            fourthSum +=1
    if fourthSum % 2 == 0:
        res[-4] = 0
    else:
        res[-4] = 1
def f8 (res):
    eight = []
    d = -8
    for item in range(int(len(res)/8)-1):
        eight.append(res[d])
        d = d - 1
        eight.append(res[d])
        d = d - 2
        eight.append(res[d])
        d = d - 3
        eight.append(res[d])
        d = d - 4
        eight.append(res[d])
        d = d - 5
        eight.append(res[d])
        d = d - 6
        eight.append(res[d])
        d = d - 7
    eightSum = 0
    for i in eight:
        if eight[i] == 1:
            eightSum +=1
    if eightSum % 2 == 0:
        res[-8] = 0
    else:
        res[-8] = 1
 
 
f1 = f1(res)
print(str(res) + " замена 1 бита")
f2 = f2(res)
print(str(res) + " замена 2 бита")
f4 = f4(res)
print(str(res) + " замена 4 бита")
f8 = f8(res)
print(str(res) + " замена 8 бита")
 
res = res[::-1]
print(str(res) + " перевернули число ")
for i in res:
    bitsSum = 0
    if res[i] == 1:
        bitsSum+=1
if bitsSum % 2 != 0:
    res.append(1)
else:
    res.append(0)
 
print(str(res) + " добавили 16 бит ")