ارجو منكم التحقق من البرنامج التالي و هو لرسم شجرة على t-pascal7

واصلاح الاخطاء لي

File Edit Search Run Compile Debug Tools Options Window Help
╔═[■]══════════════════════════════ TREE.PAS ════════════════════════════1═[↕]═╗
║PROGRAM DRAW TREE;
║USES gu;
║PROCEDURE TREE(NG:INTEGER;L,T:REAL);
║VAR O,N,A,PX,PY:REAL;
║PROCEDURE HANI(OX,OY:REAL;NR:INTEGER;L,M:REAL);
║VAR PX1,PX2,PY1,PY2:REAL;
║BEGIN
║IF ((NR<>O)AND(L>O))THEN
║BEGIN
║║PX1:=OX; PY1:=OY;
║PX2:=OX+L*COS(M);
║PY2:=OY+L*SIN(M);
║NR:=NR;║guLINE(PX1,PY1,PX1,PY2);
║HANI(PX2,PY2,NR,1-1*0.45,M+T);
║HANI(PX2,PY2,NR,1-1*0.15,M);
║HANI(PX2,PY2,NR,1-1*0.45,M-T);
║END;
║END;
║BEGIN

║A:=PI/N;
║PX:=0.5; PY:=0; ▒
║HANI(PX,PY,NG,L,A) ▒
║END; ▒
║BMAZGRAPH; ▒
║TREE(8,0.2,PI/8); ▒
║READLN; ▒
║CLOSEGRAPH;

END.