Перевести программу с Питона на Паскаль

 import copy
 import sys
 
 def neighbours(a, x, y):
 res = 0
 for dx, dy in [(1, 0), (0, 1), (-1, 0), (0, -1)]:
 xx = x + dx
 yy = y + dy
 res += int(-1 < xx < len(a) and -1 < yy < len(a[xx]) and a[xx][yy] !
= 0)
 return res
 
 def clear(a):
 b = []
 res = 0
 for x in range(len(a)):
 b.append([0] * len(a[x]))
 for y in range(len(a[x])):
 if a[x][y] == 0:
 continue
 if a[x][y] != neighbours(a, x, y):
 b[x][y] = a[x][y]
 else:
 res += 1
 return (res, b)
 
 
def test(a, x1, y1, x2, y2):
 a = copy.deepcopy(a)
 a[x2][y2] = a[x1][y1]
 a[x1][y1] = 0
 res = 0
 while True:
 q, a = clear(a)
 if q == 0:
 return res
 res += q
 
 def solve(data):
 a = list(map(lambda s: list(map(int, s.split())), filter(None, data.split('\
n'))))
 ans = 0
 
 for x in range(len(a)):
 for y in range(len(a[x])):
 if a[x][y] == 0:
 continue
 for xx in range(len(a)):
 for yy in range(len(a[x])):
 if a[xx][yy] != 0:
 continue
 t = test(a, x, y, xx, yy)
 if t > ans:
 ans = t
 return str(ans)
 
 solve(sys.stdin.read())