程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
9 I; h: F1 I9 l& T+ V' ?# f/ zis
& j  [# o  g2 O' g7 h( _        i,j,Rows,Lines:integer;
6 a% n7 _/ [1 ]' z! g        MachineName,BufName:string;
/ T, D/ Z) m# W, e5 R; I        Machine,Buf:object;
2 ]7 k: \2 Y8 j/ @: M9 Z6 L# Wdo
/ b) p1 f7 J+ l; O' a( e        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
, R- B, O* {: Q2 S0 S2 E# B                when 16 then
                        print "Yes";
) M) k. ^  ]; ]- [                when 32 then
8 {0 Z7 b  ^) t; ~                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
; q  w/ \) v) ]2 NPartsTable.delete;
- x1 q9 f- e& L3 i% C: k! y0 Afor i:=1 to Number_Of_Machine loop
5 ?" ~/ n2 C  J# B6 [/ v, L        for j:=1 to Number_Of_Machine loop
, G+ D& @1 H4 }* f# ~9 y' y                if j<i then
: O& A* g5 L4 l* M$ r0 J( ], Z# O                        if D_From_To_Chart[j,i]<=0 then
# p0 k: l. v+ e& U  e                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
! p- N" R/ g; [: S) a! i/ d                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
9 H( I9 N' K6 k# ~. W                end;
& |& e7 X0 d2 c" |9 e% ?/ H" R3 M' r        next;
+ C$ j6 L) b6 V& H3 A# enext;
5 L5 Y* `" t& y
end;
5 ~4 t8 n: v8 g
    Lines :=0;
        for i:1 to Number_Of_Machine loop
: k& B  N0 c! h3 _: ]        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
7 Q/ s2 B0 x0 T- D$ i( E                            Lines :=Lines+1;
: s, l  H* m# c! n% }- v0 q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
, N3 C: |* `1 y: @: F: V: T" R1 P                        PartsTable[5,Lines]:=Rows;
* U4 Y. s! x$ o$ X6 j                        PartsTable[6,Lines]:=j;
                end;
) ]& j, j) U7 k        next;
4 {1 X8 o' U0 u) @3 \' Q# J        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]);
! S; e' v) [2 W9 H. ?  x  S        Machine.Name :=MachineName;
9 Q% i9 u7 w$ R% V+ O! F        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
) ]" X, v* b; J0 ~) S        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;
. Y  u! a' D( u) E9 L$ `! R        .MaterialFlow.Connector.connect(Buf,Machine);
6 }* Q3 l& b' Z" Vnext;
8 R1 p1 ]' U, @% yend;

五五

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

wudi

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