程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
  l  |* \6 t4 {1 p' k2 S% [# y1 y  Q' m        MachineName,BufName:string;
& i8 C$ A1 @  R9 v0 i% `$ a        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
4 s# ^. F5 c# l1 G9 B                when 16 then
                        print "Yes";
                when 32 then
7 G0 n8 a6 ?& n( k& M                        print "No";
) _: u) _# {4 S: z4 x* N% T                else
                        print "Cancel";
. o7 A7 b9 g, W# L9 X, S' K7 h                end;
$ u5 U4 O% ]$ {) {        EventController.stop;
4 N9 n0 Y) @4 |$ i7 F) [end;
PartsTable.delete;
  N9 Z7 C/ ^4 A) ^4 r/ Sfor i:=1 to Number_Of_Machine loop
$ E9 K% W5 [! v* [$ _; ?9 `7 H        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 b; Q- w/ u  F% C' \* \) E                        end;
                else
' |/ ]  M  B' v5 U3 _$ ^2 Y- Z% T                        if j=i then
                                D_From_To_Chart[j,i]:=0;
: }1 J4 W7 b/ q: F3 g9 l4 S                        else
; S- H2 y6 A& [                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
, t% B6 d& i# t6 a                                end;
  j2 |' a1 O, e6 E$ ^                        end;
6 F: n! _; H& T& E$ m# R                end;
: ]' ^- T# i5 B1 a8 d. [) @) x        next;
next;
% Z& Z1 t  y6 W" |4 M* o
end;

    Lines :=0;
( ~' s( i+ A* _7 ?3 Z  K$ l! b8 }8 w  _        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
3 u8 [6 b* L1 W. `6 p5 `        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
  t2 I, t, Q; a8 p% l                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
3 L" j0 B6 l/ k/ q  K3 a0 b                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
" m0 m+ j( }2 [% c9 o6 w0 `- F                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
9 ]  w! O! M8 [5 h9 _        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]);
8 D; G+ Q! q# O# H  |5 D/ j7 ]) ]        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, Y+ [) F  l* K! s4 j        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
$ g3 g! X( E$ o7 L8 G# e        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;
, t. M5 g7 D* W        Buf.Capacity :=5000;
& \( h) K8 J, @9 v4 a* B& n) y$ j        Buf.ProcTime :=0;
! S4 J; x: p5 s: z' @2 g        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
- @  T. h) f2 X* d

五五

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

wudi

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