程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ D6 s  [* A# Zis
5 o; X2 d& `( Y3 f6 c4 E$ B        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
% e- ]" V7 G4 Xdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ m2 @' f( F& g- F0 \                inspect messageBox("Number Wrong...,",50,13)
2 [$ }/ y+ W1 ~8 }, W# O7 M4 }' A  u                when 16 then
                        print "Yes";
3 a0 Q: g& H, `                when 32 then
                        print "No";
                else
# q: x. c$ ~, k6 r                        print "Cancel";
% F  x& U+ H0 n7 q- R                end;
3 a$ M- }8 R! }+ D/ m6 w; A        EventController.stop;
end;
PartsTable.delete;
5 J) P0 s! B7 b# [for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
  E% Q7 w" S$ Z                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];
: d) j; \* |, x( F% l' z* `                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
+ q% K! K3 n9 i: e4 k8 W                                if D_From_To_Chart[j,i]<=0 then
% E9 k+ n6 b, h; s& a. G                                        messageBox("distence<=0...,",50,13);
) [9 R# K# ?# z1 s2 O8 Q4 D                                        EventController.stop;
" X  |/ w3 S) ?" o7 X9 S3 V0 z+ b                                end;
1 i. J" a8 n4 a                        end;
4 g& m" H6 M% |8 D8 m                end;
        next;
0 b* z1 D6 x0 f* bnext;
0 z6 u) N$ r) w# L. j# y7 A
$ C2 m  j3 w; u+ r- y/ xend;

    Lines :=0;
4 O2 z3 V: T3 R/ d) f        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 S9 [$ c% ^/ B        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
: g: k: W& m) X7 y6 t                            Lines :=Lines+1;
9 ~* H( Z7 c8 U" W5 f                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% w4 @( b0 G, ^& P- \- H, _: ~                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
, e: d4 d* r% Z$ {7 ?6 r        next;
        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]);
8 V: z2 m( W+ X% ~0 m0 h        Machine.Name :=MachineName;
: e" ^0 v* m0 s$ A1 @6 z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
: |0 t" M) i3 x0 }, s0 Q% N: J       
        BufName :=sprint("BF",Rows);
/ Y' p1 y9 t6 K        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;
: ^! e/ E: k) H% A* B; J6 c8 a! T$ C$ g        Buf.Capacity :=5000;
8 P$ b4 G3 V! m6 |" T1 g        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
  F. g* C2 L, e. f* hnext;
2 U8 z8 P" E. V1 fend;

五五

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

wudi

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