程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 O6 v$ k: e! s4 ^: Cis
        i,j,Rows,Lines:integer;
- L& d; _5 l4 E) l        MachineName,BufName:string;
, p9 C, Z) [) y- m. F1 s        Machine,Buf:object;
* i% Q7 X  W* ?* Q5 a% X" q/ _2 \do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 ~8 x; I6 S+ M9 d                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
! g8 D3 Z6 q( T& U4 W5 ~                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
- B2 ]; ^# ]+ L' q" J! ?" K+ uend;
PartsTable.delete;
) I0 b# d, V5 vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
/ R" g, ^) v+ K+ B' r5 P1 b( ?$ ]* q                if j<i then
: }% @! d$ O2 ]                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
3 }* t+ K- Y9 q6 }: t0 `( K                        end;
                else
                        if j=i then
8 f+ K; C9 F4 T9 M0 J  B+ {" \                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
/ h1 J% H- ^% |" `8 V! a/ U" z                        end;
0 `% ~3 |8 K  v1 u                end;
        next;
% a+ Q8 P' q$ }, rnext;

' W2 P# ], J7 L" S1 H! xend;
2 f- X0 C: S2 M" _3 {) F
- r; A! g/ \  D4 [4 a" I+ T) V    Lines :=0;
5 J  p+ }/ u# D' C2 w        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
/ R; d: P) w" e! B+ q1 }                    if W_From_To_Chart[j,Rows]>0 then
! A! D( F8 X/ H; M                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 H1 b! b6 `* s+ I9 c  J  s; ^% r: J                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
4 T- K, i6 @+ l5 ^8 i0 Y                end;
        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]);
8 T' a! ~6 D+ b) G: Q: C6 H+ T        Machine.Name :=MachineName;
+ Q/ _. q7 o5 e: c# Q  ]        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
/ a" A" o; I3 ^! P6 N8 Q! S        Machine.ExitCtrl :=ref(Leave);
       
! `5 h2 U# Q4 K4 T/ b. ?- \0 |9 i        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;
5 m; H3 t$ ?' h8 T) m: ^, o. w; e# P        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
  T' r1 ]- u( J% n" d3 s. ^        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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