程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
' I. E( V% r1 v0 B        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
4 {  w4 P/ b3 n1 g3 gdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 ~0 g) t0 p) Y7 c% L                inspect messageBox("Number Wrong...,",50,13)
( {7 d- n7 X, K6 ^9 j                when 16 then
/ l  R3 Z0 q& G  J) [5 ^                        print "Yes";
                when 32 then
                        print "No";
                else
( }3 m" L/ S3 j7 x                        print "Cancel";
                end;
        EventController.stop;
2 }5 y  A* X( e% Xend;
PartsTable.delete;
( \3 C  H! L5 ^2 L2 {; \/ ufor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
) g' R# q) |* k$ C% M                        end;
                else
2 |0 [. Q: U0 B- ]* Y8 d                        if j=i then
+ U+ ?. {. r$ q* V                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
0 p& X9 s* y4 a9 B7 R+ T% j: H                                end;
( J3 \3 J5 z7 A                        end;
) ~. A1 y* S# B" q" s2 \: H                end;
        next;
next;

end;

    Lines :=0;
6 A$ L6 g( p* c% V% B0 n        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
  C6 ?7 z: w/ }# o            for j:1 to Number_Of_Machine loop
4 K7 h6 o. X6 `                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
: o' E6 z+ b( e8 p, a, `& ?" j                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; {! N' w9 q6 G4 j* t4 ]                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
$ V' m+ b& W% L- G: W                        PartsTable[6,Lines]:=j;
5 B7 F$ k9 R. B6 o0 |9 d% x                end;
        next;
) r% A/ r0 H6 t7 l1 F  C( ^        MachineName :=sprint("M",Rows);
4 f) `3 [+ W# O  r        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;
        Machine.ProcTime :=5;
9 o) l4 S4 V0 t        Machine.label :=sprint("machine_",Rows);
' |3 ~8 Y/ v" s2 i2 l6 O$ W) Z3 p+ Z1 x/ }        Machine.ExitCtrl :=ref(Leave);
       
* k) r$ x5 H" G/ t+ {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]);
  \" U4 a( E" H" o& T                 Buf.Name :=BufName;
+ I8 Y, L- L  f/ Z" N* J+ P$ Z- v        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
, M# X; e+ n( H- B: a) Unext;
end;
6 g8 v4 u# D9 c! ?, J2 O/ ]0 B

五五

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

wudi

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