程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# a6 z. I% S4 U# sis
' h" d/ ]# N! U$ P$ F; V        i,j,Rows,Lines:integer;
( V: C5 f" H  _  o# Z        MachineName,BufName:string;
" w; K0 b3 h6 f+ T* Q" c# T        Machine,Buf:object;
' Y, N, ]" X- c0 E! h9 Rdo
2 ?! ^5 E5 b% q' D9 p% _        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  F8 T, s- o- t# ~9 _+ l+ }* V                when 16 then
) \$ q: N8 e+ [3 x                        print "Yes";
+ n; x5 j. c' H# v6 ]                when 32 then
0 V7 X  n5 [8 {                        print "No";
( p% Z9 o. r/ s  d' i4 v' a                else
                        print "Cancel";
; U% |% f* M% F) `& [                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
9 ]; L# o5 C5 x8 _! @) t) L        for j:=1 to Number_Of_Machine loop
, m+ P; x! l: H# Q  ~9 K# `& _                if j<i then
; e7 s& h& o8 k8 n! t& @                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                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;
                        end;
                end;
        next;
' u" q* x$ w9 Z- t7 Mnext;
/ v0 F$ z9 u& J2 D4 Z5 }! U3 K
+ u1 s9 p8 g. _: i& s8 Mend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
' M! J3 n5 U1 \6 i        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 [# V$ M, G# q! i+ F$ a        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
, b; s1 F% X) `; O. {* C0 Q                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
7 D6 j/ b& f8 I* u  z8 Z, c                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
0 t( I% e7 C, K5 L. q: X7 e                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
% P% W- @' y; O                        PartsTable[3,Lines]:=sprint("Parts");
' f, [6 e& }6 U* {* R* Y- B# n                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
' e, S4 B) V  S' Q* {& D! f  ]                end;
; F+ R! X/ `: |9 ?7 t8 K        next;
8 ?% I! K& J% q8 h        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]);
        Machine.Name :=MachineName;
3 L% V* k1 U: [) e  r. n* h% R2 m) h        Machine.ProcTime :=5;
; B/ G+ }) `7 s2 O  C; d        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
  D' z3 t- ~2 c       
* c- B3 Q/ L# y- N# n' k# c        BufName :=sprint("BF",Rows);
: v% B8 g# E# j        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);
! D$ y( T: \8 O/ d0 tnext;
end;

五五

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

wudi

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