程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
; @1 l' X0 x! J5 X) V9 B& r        i,j,Rows,Lines:integer;
/ Z$ T6 K; R7 p7 K" v) A        MachineName,BufName:string;
        Machine,Buf:object;
; D  N7 t. p$ \/ J$ c2 f4 I4 W+ G# Vdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
  G7 \4 j4 J4 Z: e                when 16 then
) N5 L0 H' ~3 T! A8 K                        print "Yes";
  l' h1 o6 y5 Y7 }: u  c                when 32 then
                        print "No";
                else
3 I1 @7 r7 S3 _+ V7 `$ t) g                        print "Cancel";
                end;
        EventController.stop;
. }) g+ m$ f; w$ Q1 [end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
9 I8 R6 u) O" e* u2 u0 c3 [        for j:=1 to Number_Of_Machine loop
                if j<i then
, \2 F. O% K3 P2 r* B, F4 a                        if D_From_To_Chart[j,i]<=0 then
0 v. U% F  W- ~4 e3 R/ W: X- H$ A5 d                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
/ h- L/ p" d1 R                else
, j' J7 D2 k1 [$ m5 G9 F% j                        if j=i then
/ |" l# s0 s) X7 Z5 h+ l  m                                D_From_To_Chart[j,i]:=0;
/ b4 p9 {) J8 _5 P* d3 c                        else
2 o. C9 p3 o' ?* p* i3 S6 v                                if D_From_To_Chart[j,i]<=0 then
$ i# G/ d* M* h; _7 g/ D+ Y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
/ E# `9 A8 s+ [, g" S                        end;
) d. A; W2 K/ ]2 A5 Z/ y, \                end;
        next;
+ R' H3 n0 ^% |6 O4 ]5 @' ]next;
4 S2 B* W* L7 A* L4 n( V- y
end;

    Lines :=0;
: L7 Z) u$ p% i        for i:1 to Number_Of_Machine loop
; L/ u# z& Y* W- a0 ^' h/ Z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) i+ w* t- k' E$ ^) _7 |) L        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
7 d3 i  W! w" l7 _$ B                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
8 |% Z2 E+ M$ H" q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: W6 U  g* D( R! W9 Q; q                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                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]);
, q0 q4 ?8 N4 T- o7 [: S        Machine.Name :=MachineName;
. a$ T0 }0 ~$ |* G' }        Machine.ProcTime :=5;
4 i- _  `+ _$ i$ c        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
8 H( j; x9 z: C+ L. ]        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]);
; u$ {: J! v  W6 S6 z3 h                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
: K# E6 I* S3 M8 V        Buf.ProcTime :=0;
2 I( u2 O7 D. w* f  M; y& H* Y  Q        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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