Pascal/Turbo Pascal - ayuda porfavor ayuda urgente

buenas necesito un gran favor llevo 1 semana tratando de hacerlo pero no puedo y tengo q entregarlo mañana tengo q diseñar un programa q genere el triangulo de pascal porfavor necesito ayuda urgente lo agradeceria muchisimo =(

Tus urgencias no son las nuestras.

Pon lo que llevas hecho.

program triangulo
uses crt

DIM D, K AS INTEGER
LOCATE 10, 10
INPUT "POTENCIA DEL TRIANGULO DE PASCAL?", D
K = D + 1
DIM A(K, K) AS INTEGER
DIM F, C, W, Z, Y, X AS INTEGER

FOR I = 1 TO D

A(I, 1) = 1
A(I, I) = 1

IF I >= 2 THEN

FOR X = 2 TO I
A(I + 1, X) = A(I, X - 1) + A(I, X)
NEXT X
Q = Q + 1

END IF
NEXT I

A(K, 1) = 1
A(K, K) = 1
Y = 0
C = 40
W = 15
FOR Z = 1 TO K
IF Z > 1 THEN
C = 40 - Y
END IF

FOR F = 1 TO K

IF F <= Z THEN
LOCATE W, C
PRINT A(Z, F)
IF Z > 1 THEN
C = C + 4


END IF

END IF

NEXT F
Y = Y + 2
W = W + 2
NEXT Z

esto es basic