程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; e9 |( r; w3 q' Q4 z# bis
        i,j,Rows,Lines:integer;
8 Q3 R1 R  L3 t        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
. [5 H* g8 ^! g+ N8 n9 n. B1 \6 Z                inspect messageBox("Number Wrong...,",50,13)
0 R8 U1 M& ], Z! t                when 16 then
8 f. B' ?: S# `) r5 g1 e  g# A                        print "Yes";
                when 32 then
2 `1 b+ }, m' M$ y! i                        print "No";
                else
; o7 u; |; a) ^+ k4 I& e                        print "Cancel";
. K1 v! P' r9 E6 K8 q                end;
7 Z! Y* D9 G  L# v0 y        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
# V# G. o) \& H7 z: R/ \                                D_From_To_Chart[j,i]:=0;
0 Y  T& X& H) `1 U- {+ ^# E                        else
                                if D_From_To_Chart[j,i]<=0 then
$ b2 s$ [: i( P: B; ^8 }                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% h, N- ?# H" _# A* d4 f. I                                end;
                        end;
                end;
        next;
next;

# d4 z+ k$ {& }6 b% tend;

/ D8 s9 l4 ]7 c; t! l. x4 Q    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 L: B% ~5 [& `6 n) [        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
; ^5 k% Y: h' h, |5 A2 H        MachineSequence[2,i]:=Rows;
! _1 }  K" D% H* a; |            for j:1 to Number_Of_Machine loop
( a7 Z* c* c6 V0 m8 V6 e                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
" k2 P! m* F1 u2 t$ d                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. _/ J, I4 a9 e9 h5 J9 @                        PartsTable[3,Lines]:=sprint("Parts");
: ~* t  `. P4 Y! f  U/ R/ f                        PartsTable[5,Lines]:=Rows;
" ]! Z+ U0 m; n2 E* z                        PartsTable[6,Lines]:=j;
- T2 @6 H  E0 D* `  D                end;
        next;
0 P% T, y# u3 i( X- H9 `        MachineName :=sprint("M",Rows);
        Machine:=.MaterialFlow.SingleProc.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i],Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
6 v% G+ j( q2 n4 s- H8 Z& g% {        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
! M& D6 C* s/ B4 @2 i) y. a( Z        Machine.ExitCtrl :=ref(Leave);
       
1 C8 C5 _" D, H) J4 m3 z        BufName :=sprint("BF",Rows);
        Buf:=.MaterialFlow.Buffer.createObject(current,X_pos_init+D_From_To_Chart[Number_Of_Machine+1,i]-35,Y_pos_init+D_From_To_Chart[Number_Of_Machine+2,i]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
( x8 \- m6 c6 p5 v# Y6 U6 Q6 [& vnext;
end;
4 j6 \3 \+ q+ S' n" p0 G$ C! c! M3 N

五五

end 数量不对 且后面两个for循环 赋值没有等号。。。

wudi

老师，我再问一下，哪里的end数量不对啊，我是新手