程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
4 r+ g, q. Q4 j) a7 F3 a0 }        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 [, s9 o9 }' R/ h' o. W  x                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
% F$ v- ~# ]) B- ^                        print "Yes";
; n! X- n8 ^) U$ ]3 y0 H# m  ?                when 32 then
                        print "No";
& p4 X  E. U! A6 W% U                else
                        print "Cancel";
4 w; Z. u- ^* D* I$ @                end;
        EventController.stop;
end;
9 u4 t' f/ j" W. @PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
% Y+ b  A8 u7 }, g( m# ]                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# O7 P; h6 L, J; e9 z" X/ G                        if j=i then
5 @$ C7 T( i/ r+ G                                D_From_To_Chart[j,i]:=0;
* `5 V1 F  ?2 j# R( Q, e                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
+ z* {. j2 J4 X                                        EventController.stop;
                                end;
                        end;
                end;
8 T: }& w9 J' V; I1 q0 X        next;
8 `- e8 y9 o6 i7 c: A. Tnext;

end;
' U* [- [! D1 p4 P; t' i; T# k6 L2 F
' @4 ]6 |/ s% \: @% y, {+ M    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 I3 A2 R3 c  S9 r        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
$ H8 u- h- z# l. a$ w7 O0 c                    if W_From_To_Chart[j,Rows]>0 then
, p! Y% W! t6 v, T/ {                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
' K1 h; h& v+ g6 r: _7 V& g                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
$ K9 X: i- Y, H1 d& o        next;
& S$ }9 U% Y/ N- `2 v- O        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]);
3 ~/ z7 l2 ~, C# k; r0 {        Machine.Name :=MachineName;
- N; ]: f3 i4 Y+ i7 `/ V        Machine.ProcTime :=5;
1 `" p$ o$ D* O: B        Machine.label :=sprint("machine_",Rows);
% Q, [1 Q# L( ^" _1 [        Machine.ExitCtrl :=ref(Leave);
       
" F% U- w3 ~" C- \9 M! d1 W$ T        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;
; E. b1 f( k" o8 Q" s, P        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
% ?1 U3 C  x7 y( I! ^. s" \        .MaterialFlow.Connector.connect(Buf,Machine);
* s9 K! B' Q/ D- e% u: wnext;
end;
. B  O# O: s: m) `2 v

五五

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

wudi

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