程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
; E- s/ G9 \) k7 U# S' P% d# V        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
7 b+ q9 z$ |/ `% J+ E                when 16 then
                        print "Yes";
                when 32 then
+ w+ K7 J; Y4 E% q5 E% f                        print "No";
1 j* W) W) w2 ]* C- k+ _$ ^% l                else
                        print "Cancel";
                end;
1 A/ q8 ]7 Q4 _1 R        EventController.stop;
end;
3 \" }  m3 K( _2 |. o5 [0 QPartsTable.delete;
for i:=1 to Number_Of_Machine loop
2 V5 \2 v. Q# h" K        for j:=1 to Number_Of_Machine loop
                if j<i then
$ `+ K& A% x' K" H1 b0 o. C5 B                        if D_From_To_Chart[j,i]<=0 then
$ x# y2 _  d; K4 G1 S+ D. z                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
% G; [+ d; G2 N/ O                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
' h5 E, O* |+ \  v, d                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
' I/ q* h$ n$ M: ?; s( l) ^                        end;
9 }( v% C' C7 ^# x, Q* t# U" W                end;
! {/ h3 U: m, o" d$ `8 d        next;
4 L% l4 m0 e* W8 M% J, snext;
4 B+ F8 w" a- S
& H+ T! O. s' t' wend;
; L. Y1 {" ?: h8 F
  {. o1 a% d/ A    Lines :=0;
5 Q: E! j8 |& m5 m( {- ^        for i:1 to Number_Of_Machine loop
# t% j% |( Z) }# B; w        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;
6 `) @8 N. _: M8 I4 u                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' C2 y' L# V- O2 R                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 [, S6 K( t6 T0 h) E9 r) @                        PartsTable[3,Lines]:=sprint("Parts");
# J9 g+ J; @; K: @& ^  A                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" p# _2 m# n- o8 H                end;
        next;
7 b* w4 p& Z6 |* P) a& s        MachineName :=sprint("M",Rows);
( Z5 p) O) M. Q! M) N" }* S% d        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]);
0 x/ n% S/ _5 H" U        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
: m4 A$ ^; M/ d1 d. v9 A% d        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
" @7 V5 E$ F0 D4 I" v        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]);
% E! V! |# @. ]! j) g, M/ I                 Buf.Name :=BufName;
- O) V2 M8 C. P7 n        Buf.Capacity :=5000;
8 m1 `1 g/ W' m" z        Buf.ProcTime :=0;
! j" z+ _  R  Z        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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