程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
* I1 ~0 I+ A* I- w, ], A% Yis
& Q% }) l/ d4 d- r8 S2 F        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
3 [" r4 c. |& ~2 e7 K  ?        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
' t. b1 J4 f: `) E2 \                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
* e2 R& J$ B/ r+ K                        print "Yes";
8 I% n; H# v. K4 `% h; t                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
/ Q: G; p+ [9 y% R5 @7 o                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
' [: W* n* R0 H5 ^0 A                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
% C3 ~" U2 ~5 z. f                        if j=i then
) y2 r) ^  b. n3 Y                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
* u# ~* J; X: H7 D: E' f                                        EventController.stop;
4 M) L7 W! |( u& h; f                                end;
1 U! i* L" c$ w# Z! D1 X7 U                        end;
* h6 @7 y- X7 Z* r                end;
! L; }0 f& [- L- Q$ E, t        next;
next;
/ t: c% Z2 }% G
0 A, K; D5 Y8 \1 p2 Q* Xend;

- k3 n2 m: s2 f) U    Lines :=0;
& E! ~. x( X$ f) h( o( n% C        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 J3 n& K6 m( r: t2 J6 Z        MachineSequence[2,i]:=Rows;
7 R0 k1 C. T) G# w4 @$ b7 k            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
! H' @0 L% w- O' Z9 L6 ^                            Lines :=Lines+1;
# z8 {( V) E! i2 K4 r' P                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  D2 v. M/ c( O* ?4 w. q* |                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
  J; h8 S  A; e" @: A6 F% P                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
0 e% Y' k& E" g        MachineName :=sprint("M",Rows);
4 E" p, O3 Q) K5 {# x        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;
* M1 Y7 U' n2 T9 C        Machine.label :=sprint("machine_",Rows);
: ~4 P9 F8 }; X) _, R  ~        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
$ L' u/ R4 J# {1 I        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;
* V, W9 N4 T) D7 ?: J        .MaterialFlow.Connector.connect(Buf,Machine);
next;
- M% P9 S" I  u& ^- Send;
1 q/ Q& [# X& k/ q+ Q# j! V

五五

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

wudi

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