Перевести программу из qBasic в Pascal

DIM A(10, 3)
SCREEN 12
CLS
 
KX = 2.5
KY = 3.34
 
X0left = 460
X0right = 180
Y0 = 240
 
H= 150
D= 300
F=D
DG = 65
 
FOR i = 1 TO 8
READ A(i, 1), A(i, 2), A(i, 3)
NEXT i
 
LINE (0, Y0)-(640, Y0), 8
LINE (X0left, 0)-(X0left, 480), 8
LINE (X0right, 0)-(X0right, 480), 8
 
FOR i = 1 TO 8
FOR j = 1 TO 8
 
XA = A(i, 1): YA = A(i, 2): ZA = A(i, 3)
XB = A(j, 1): YB = A(j, 2): ZB = A(j, 3)
 
X = (F * YA + DG / 2 * (XA - D + F)) / (D - XA)
X = X0left + KX * XY = Y0 - KY * (F * ZA - H * (XA - D + F)) / (D - XA)
 
X1 = (F * YB + DG / 2 * (XB - D + F)) / (D - XB)
X1 = X0left + KX * X1
Y1 = Y0 - KY * (F * ZB - H * (XB - D + F)) / (D - XB)
 
X1 = (F * YB - DG / 2 * (XB - D + F)) / (D - XB)
X1 = X0right + KX * X1
Y1 = Y0 - KY * (F * ZB - H * (XB - D + F)) / (D - XB)
 
LINE (X, Y)-(X1, Y1)
 
NEXT j
NEXT i
 
DATA 40, 40, 40
DATA -40, 40, 40
DATA 40,-40, 40
DATA 40, 40,-10
DATA -40,-40, 40
DATA 40,-40,-10
DATA -40, 40,-10
DATA -40,-40,-10