程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
5 c9 i. M$ T" b9 U        MachineName,BufName:string;
        Machine,Buf:object;
8 z. y1 v$ q5 j; y) i! q: G' kdo
* e' w0 N) A6 @: f6 u2 j        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
2 b/ `5 W" i& v# \9 L                when 16 then
                        print "Yes";
& m' e, v0 ~, I) Q" [, @: ^                when 32 then
! t; Z  q0 Z5 a' @! N                        print "No";
; v* B- O8 d: |1 G4 ?/ m                else
# G" G7 x# g3 w1 C                        print "Cancel";
                end;
0 a4 l8 Z- t- L# w, x        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
$ g" h' [9 ?2 Y7 e                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
; y$ A5 J5 y8 [9 ]1 C! |                        end;
                else
' q* j4 ~( g2 I9 v/ g) h8 Y                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
' l. y. `6 W& j7 t) ]                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
3 p; c% S( z% {+ }                        end;
: Z% z8 `5 A: {" O  I2 F                end;
        next;
next;

end;
0 ?- J& Z. v4 G1 I) y
: |- x; z, ?$ n    Lines :=0;
+ h- G; I: H  M0 s        for i:1 to Number_Of_Machine loop
* X! ?5 U2 r7 n* }        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ b3 p* k1 W( l' ^6 ]" o# g        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            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");
7 E( y2 ^/ l; E7 i                        PartsTable[5,Lines]:=Rows;
' @, E% L4 C5 n6 L                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
5 p* Q* T  X6 g+ {% p        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]);
) Y' P( W0 ]4 W6 l9 f        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
6 f! p! S9 x; y/ ~2 F        Machine.label :=sprint("machine_",Rows);
; c0 Q8 Z; ~, s: L; n$ _) Y/ Y        Machine.ExitCtrl :=ref(Leave);
7 R0 `) Q3 C1 V8 H7 Y5 q       
        BufName :=sprint("BF",Rows);
( |% X2 f- l( l1 s        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;
4 [; k  ~# d1 h; P4 M) V5 B8 j        Buf.Capacity :=5000;
) O& ^' S' ?: T& a6 j" [        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
) j) p) b6 S0 h1 U. Y& r9 ]& a

五五

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

wudi

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