程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
$ \8 c$ H- L: x2 f) Sis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
% A/ s2 n( m) K5 v4 a2 O9 o9 m- E        Machine,Buf:object;
do
# w" v# k% Z  C. l2 P) _! S        if Number_Of_Machine/=D_From_To_Chart.YDim then
1 V& c; s% o) p: X4 y1 J9 ~" Q                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ Y2 p) P! |( d  e, `: c& J; a                        print "Yes";
; z, u. l, \8 R" x                when 32 then
" P; U4 c& [2 ^; |1 y  y                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
! \$ q, Y) d' m+ F1 w$ A# H6 h) Rend;
( p8 t) L3 W& Y# w/ z9 |% E- d8 bPartsTable.delete;
for i:=1 to Number_Of_Machine loop
# t5 r% l; v3 H        for j:=1 to Number_Of_Machine loop
7 \' I  _, U1 t2 ?9 \# ~                if j<i then
9 e+ S4 k! d7 O" W# i1 @                        if D_From_To_Chart[j,i]<=0 then
7 g4 A5 t' S% E                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 y; B7 Z0 |( w# K( E/ b                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; }1 V# f+ d0 q/ x8 W                        else
/ z1 J1 S/ ~# x7 x. l" ~9 b' r                                if D_From_To_Chart[j,i]<=0 then
) S5 A) C, b5 r$ F                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
+ J; n/ @/ L0 D' _" o% V                                end;
                        end;
: E( F, {7 I4 }- K                end;
        next;
4 M7 E. _8 v; c9 Unext;
. Z! Z9 e! \( ?: K' e
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
7 W6 v, S! J6 \# o        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
, y$ M3 i2 _8 t4 m& V. ?/ U7 D                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
$ ^4 f) X1 m) ]8 G& ?                        PartsTable[6,Lines]:=j;
                end;
        next;
% ~  M1 i4 c$ u        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]);
2 W' [  {1 k8 Y# E( O# L        Machine.Name :=MachineName;
, P) I: J8 B1 f        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
$ u( }* }! }# |" Z3 i0 x        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;
        .MaterialFlow.Connector.connect(Buf,Machine);
4 u) @" H8 ~' ~) B. m( X. x3 \next;
end;

五五

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

wudi

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