程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
4 i3 P3 G( S# G! f. Z+ m5 W        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 b5 V1 a# J. x/ ^+ W2 u  @                inspect messageBox("Number Wrong...,",50,13)
' T$ {8 w) g! F7 B+ I7 ~+ x- V                when 16 then
                        print "Yes";
$ }2 I0 e( I' y+ Z. J3 {                when 32 then
                        print "No";
                else
6 G- b6 b; Q0 q* N2 t7 x2 O, Q                        print "Cancel";
                end;
        EventController.stop;
end;
5 o  l3 I: a" X# k, A6 |# lPartsTable.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
& O- _1 M" C( P9 W; f$ O                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
- w. @5 C, k7 P$ m& W% b4 ^# [                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
9 @+ t" r' U9 a5 |) b' Y                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! L) K% i+ g' O                                end;
                        end;
                end;
        next;
next;
, ?9 g" l* s2 R" a7 }
end;
3 r3 q) c% l: @* o3 ]$ \3 ]# y: K
% \) l$ c8 Z, X/ j  A8 n* P    Lines :=0;
9 M  S% i- C3 k# A        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
4 |4 R3 l5 L; l7 o1 G* X6 h            for j:1 to Number_Of_Machine loop
0 X0 _/ p; Q  f& f+ H                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        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;
( \: c- Z" p5 I+ i8 @; _, _                        PartsTable[6,Lines]:=j;
                end;
( a: M! W$ q$ Y1 W4 R! E" N0 i        next;
: n4 ^  C6 i6 P/ Y. d2 `8 {- }! G8 s        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]);
( q! O" L9 \: ^        Machine.Name :=MachineName;
' u9 Y; E5 s6 V        Machine.ProcTime :=5;
; U8 ~) c3 N9 T        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        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]);
0 D$ r- k+ ?4 R+ E                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
- T2 H4 l# }$ P& \% Z* C4 T, l2 [        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
1 ^6 i% S2 H( A  ]9 l& k# J# mend;

五五

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

wudi

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