程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
6 V. Q0 I* N0 n% I+ Wis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
( E$ _' |) `  C' H- J4 ^" k4 \        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 v( w* Y8 ]. U' p) T& V                inspect messageBox("Number Wrong...,",50,13)
# S3 T% v+ d, @                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
9 l# v! J0 F  q& a+ |" }* M1 Z- l  @                else
                        print "Cancel";
* D5 T. W( u* ^$ {; }                end;
& F0 |" N/ D. u2 S8 ]4 b        EventController.stop;
end;
% K0 G( D, o; t- }# ]  ]PartsTable.delete;
3 K) g6 ~* u/ U1 N, @) ?for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
6 N2 m, h7 [& \* A# j% v                if j<i then
7 x& a" e3 V* }2 x  O& {0 Z                        if D_From_To_Chart[j,i]<=0 then
7 P2 ]+ k  s  x( J: Y, A                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 ]9 |% Y3 x1 o. [$ X; E                        end;
                else
                        if j=i then
5 z0 V1 F% ^' t                                D_From_To_Chart[j,i]:=0;
                        else
# c% c- C( ^5 ^1 g% _; H4 ^                                if D_From_To_Chart[j,i]<=0 then
0 C$ c1 B. z- i( l4 j/ u$ r                                        messageBox("distence<=0...,",50,13);
* H/ |# y3 o6 C2 h# h3 [( f' H                                        EventController.stop;
                                end;
* N+ O) ^/ G$ q2 ?                        end;
                end;
        next;
next;
. W' q+ Q+ f; i# g9 g3 D
end;

1 p- h) g$ `3 ~6 ~8 Z    Lines :=0;
        for i:1 to Number_Of_Machine loop
7 Y5 O1 e2 f/ W) c; L( @* C8 `        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
                            Lines :=Lines+1;
" w# e' S) q3 u9 D6 _$ W, u                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) C' Y- r1 G) k* K' e/ c/ F                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
6 v; f5 Q/ Z2 J& ?        MachineName :=sprint("M",Rows);
. N) p: w" \6 ?        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;
+ U/ _0 w7 i$ e  n        Machine.ProcTime :=5;
. u) j8 G1 ]! o7 y, |& C# C1 H7 N: R/ a        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
! Y$ A* ^, }! s9 L3 U" 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;
7 H  O; p; G. o/ W# j: @- a8 {: h        Buf.Capacity :=5000;
6 e) A) W5 Y* M) Y        Buf.ProcTime :=0;
( z+ {6 W- T  Z. }# o3 l        .MaterialFlow.Connector.connect(Buf,Machine);
) \2 P; p' d: A+ |next;
end;
  i# w+ X, a. T$ X  r

五五

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

wudi

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