程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 g- c4 H# m( T( v7 jis
        i,j,Rows,Lines:integer;
3 u7 }1 m& B9 [* ~        MachineName,BufName:string;
5 \9 w1 _+ {4 r  v( P: n, d  P# {5 V& `        Machine,Buf:object;
do
8 V! f1 v' P, D! J! g        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
6 U; z3 }5 a2 @4 [: [4 d                when 16 then
                        print "Yes";
- c/ Y2 w, a8 W4 t9 f                when 32 then
- I' ]; D+ c4 u                        print "No";
                else
                        print "Cancel";
6 w6 H$ K- Q0 o7 K5 ?* V  K                end;
" x$ G3 F1 n5 K7 ^; F$ L        EventController.stop;
( j3 L5 E. {) N, cend;
4 k' R, ^1 y* c' r% G1 A+ V3 k2 ]PartsTable.delete;
/ V  h+ R; a/ H* K/ Gfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
0 J& E% ~3 ^6 T                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
* t+ m( T, t+ M                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
2 B; d1 W# `* n$ Q  r                else
' e# L9 Z* {9 ^( G5 F! K6 I                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
2 G6 w2 D- s1 z7 |/ B                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
" A* H, S2 e. x                        end;
                end;
        next;
next;
3 J% H3 `: w" p3 b& e
( M3 s1 O0 j1 @+ A3 ]. ?end;
' D! L( J3 u/ K! M
    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 e" Y$ W/ m$ |  U            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
, D1 p8 H* W! w7 N1 F/ H: a9 E5 F7 ?                            Lines :=Lines+1;
  @! o2 D6 {+ E7 O& G/ M/ d! G                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
* ~7 V* {; F& B5 S# ], O* q. ]% z- V                        PartsTable[6,Lines]:=j;
                end;
        next;
* t9 k7 z/ w/ I9 R: z        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]);
        Machine.Name :=MachineName;
9 b; A# J# q+ p! P& Q8 D0 I  ?        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
) C1 k7 Z2 ?' A        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;
0 J* y8 Z; ]0 v, j' k9 x+ [        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
9 l- B3 S+ |# ^7 K% ]0 e

五五

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

wudi

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