程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
5 j1 X' j: J/ ^* `, J* ~        MachineName,BufName:string;
        Machine,Buf:object;
  A7 p1 C- H; O2 Udo
; I9 x  E4 K8 r( t# d2 @' J        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
2 n# q; l1 A, K6 Y6 ~$ \) e                when 16 then
                        print "Yes";
                when 32 then
+ i- T- C, v8 [2 y$ t+ W                        print "No";
                else
                        print "Cancel";
                end;
( ?# O* q) r* h        EventController.stop;
end;
! b4 j% {9 T" U$ vPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
3 W9 r  Q& x9 w7 L' t! b+ N                        if D_From_To_Chart[j,i]<=0 then
' m+ o. a2 P; ]/ J: s/ M1 W                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
1 ^: R- S, q- Q3 p                else
, ]% ?/ {1 ^, i; i1 E# O0 {! U                        if j=i then
                                D_From_To_Chart[j,i]:=0;
5 F; ~9 I- c' e) y& X) T% u                        else
                                if D_From_To_Chart[j,i]<=0 then
5 p5 e3 y& I% o; ~8 {4 x2 [& Y- h                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
" |# v$ P9 N7 w5 J) u; i                        end;
                end;
, @0 H/ t; ]: A: b& d  b" T        next;
next;
* v1 z1 @5 ~6 d3 I
  @( w& w- k, b; Gend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
$ g/ F4 O9 W* l& F            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
4 d) K( i# A) ^( }  A% d8 m7 p                        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;
                        PartsTable[6,Lines]:=j;
& q  r% a: y; P* _$ T7 Y                end;
; E1 P" [# _. O8 r: @2 O        next;
" s$ J6 f7 Z/ C6 p7 N        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;
$ I! Y; T& N, a$ |3 ~8 Z        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
! U, I" ?; j. X' Z- e        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]);
6 e; b6 J9 Y9 j: _" ^/ p                 Buf.Name :=BufName;
3 u" N) Q) m5 v' V' s2 N& u        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
3 v! Z+ V$ X; B' M. r        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
1 m# l. R5 d6 @7 I' s  \; D. r6 V

五五

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

wudi

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