程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 H3 \; g; G$ p7 xis
! `! _/ e& ~  x' p2 N2 [: i        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
5 p+ [6 ]/ a" V2 b4 j* u& Ddo
2 M3 L/ Y7 C: V7 e( n. O        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
5 m7 y) F2 e1 M) L3 [8 l                        print "Yes";
                when 32 then
                        print "No";
                else
" {( F" x. Z. `- n" Y& B8 A                        print "Cancel";
                end;
3 F/ C; p& @0 n6 ^# o% ?1 k        EventController.stop;
end;
4 S/ \7 z  u( S# Y0 `+ y- \3 V# y8 _PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
1 z+ I, \) `+ i# I! b! O+ B5 U3 T7 U                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
5 T( O, z% M0 v5 p; ^                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
4 \$ G# `, B9 f3 A4 x$ O) I                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
0 \0 V; N. A( r$ o                                end;
                        end;
                end;
        next;
next;
  s2 `' h/ d+ q3 h* p
end;

    Lines :=0;
% }/ x3 K9 k, I3 Q5 z" o8 z3 b        for i:1 to Number_Of_Machine loop
0 r* _4 n  z# H9 U6 G* W0 B        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* v+ z! p5 v/ R5 D. ]( j        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" D" E3 G" t4 @$ E                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 i7 _8 p: d  v9 ~                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
+ u' \4 Z  @  d5 ]# M# @+ Y' _$ J                        PartsTable[5,Lines]:=Rows;
8 g$ ^( o, p/ v; k) d                        PartsTable[6,Lines]:=j;
                end;
# o3 C$ O; e5 t. `' D. e        next;
; s. i4 B: t3 o' P& X        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;
        Machine.ProcTime :=5;
. K. m8 r9 F6 O/ n  E        Machine.label :=sprint("machine_",Rows);
8 a4 ~% M* s# `; F6 l8 F' o        Machine.ExitCtrl :=ref(Leave);
       
, L& e; ]3 _. A* L4 F7 s        BufName :=sprint("BF",Rows);
8 J" y$ t2 ]; s3 x/ N7 n        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;
3 D* t& C; v: g, ^* `        Buf.Capacity :=5000;
$ h6 x9 @, F! }4 H8 N3 n        Buf.ProcTime :=0;
0 |  ?1 `# b& x6 u( d        .MaterialFlow.Connector.connect(Buf,Machine);
4 h* b/ _* d: S; v1 j3 Fnext;
- d$ w; H/ B' C, |! p! pend;

五五

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

wudi

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