程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; F2 L. W% r/ n( A! S& _, v. h$ M        i,j,Rows,Lines:integer;
& ~/ Z/ a2 u6 {  h$ A% n8 x        MachineName,BufName:string;
0 S) `8 O0 p$ n* {. `        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
7 @4 C1 {, j# d5 a! A                inspect messageBox("Number Wrong...,",50,13)
3 E$ ^: ~1 P$ a4 S: @                when 16 then
* c% X8 X! A/ T, ]- l( L                        print "Yes";
! K: E* K0 ^- n7 U4 }# J+ W                when 32 then
                        print "No";
7 f1 d5 @+ J8 ~: i" u) |                else
                        print "Cancel";
                end;
* a, v8 x% |% Q, U- g9 ~6 d        EventController.stop;
. [3 H  q% P) I3 K8 _9 M  _7 [/ w, Dend;
5 l3 m1 T3 c; ?PartsTable.delete;
: \' D" H; |4 b/ K1 a' N: vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
, s7 Q9 F" n7 A! j' M* C2 K                if j<i then
# \, Y9 U9 ?9 y2 X/ @6 a1 z! I                        if D_From_To_Chart[j,i]<=0 then
( a' E8 p  `) e                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; W3 m, Z% L- t1 k- D7 y- @                        end;
                else
; p& q. ^/ c6 q0 [  G: H8 k                        if j=i then
3 `: O. c/ P9 p. P) K5 \7 q                                D_From_To_Chart[j,i]:=0;
                        else
% [/ M  e9 \! j6 d2 M                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
, W7 c. ]8 k$ `" [
+ A! L' Z1 n0 q: ~8 Dend;
  t' ~" ^- }8 y+ P! H
9 }/ L. M' @9 k" z    Lines :=0;
' H3 p# u2 q1 g        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
3 W0 R# l  Z' z- p2 L            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
7 c. ?# p: P" J5 k6 p6 j                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 E5 X0 q6 [5 T( @& u                        PartsTable[3,Lines]:=sprint("Parts");
: [' P" ?# j# @" b; _4 K* S                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
+ \9 A& q7 ]0 U8 o: O$ s                end;
. \* H, g3 k* F7 q7 Y+ H2 w        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
4 j* f$ I" V. _$ T/ Y        Machine.label :=sprint("machine_",Rows);
9 |, R3 i7 B9 e: l        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
; I" E$ D. o3 h' F" _        .MaterialFlow.Connector.connect(Buf,Machine);
2 Q$ ~) e1 |$ p2 o5 Onext;
; U0 N$ l, E0 aend;

五五

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

wudi

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