程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
! a! C  h6 |4 ^. x# U: Q6 I0 d; ~                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
: e; d& A. M6 G" D. a                when 32 then
                        print "No";
5 W; d1 J1 n2 w                else
                        print "Cancel";
                end;
        EventController.stop;
end;
! A5 M& `6 P4 `5 y3 q7 |PartsTable.delete;
+ l8 n, s& X: u( }& \: u/ }. g+ }for i:=1 to Number_Of_Machine loop
; e3 Q/ Y# E& k6 C. l# }+ g        for j:=1 to Number_Of_Machine loop
9 W4 `5 \( }" T& j                if j<i then
( W( A0 L3 [  K                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
" P8 C3 u: F, }* Y6 S+ R                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
; i, m4 b3 `+ ]+ I3 B% ~+ ~                        else
                                if D_From_To_Chart[j,i]<=0 then
  A# Z" T5 Y4 q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
  N0 @' x' N9 Z                        end;
* C5 X, }- }/ ^0 p. c$ W9 \6 ^                end;
2 s  U6 O- D4 ^1 @        next;
next;
! d" B* g2 ]+ u3 `+ T
end;
$ N, M7 h5 ^0 _& i
7 y% O! B  S( f9 K" J    Lines :=0;
& o3 J% J$ a8 ?  r+ a. Y$ i/ L+ _        for i:1 to Number_Of_Machine loop
0 `3 V$ y" ]5 `. K$ Q- f! G        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ U# W7 C. f. t+ q  Y! [) e- v        MachineSequence[2,i]:=Rows;
  e. q0 i3 |: G1 e- z$ p2 _            for j:1 to Number_Of_Machine loop
9 Q  M( j6 ^& ^$ a; E                    if W_From_To_Chart[j,Rows]>0 then
; X" z1 x- l, Y$ X: u& |* {                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
- o: Z* K9 U* ~, n7 G! [/ j                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. y9 ]4 j5 f4 W4 P+ ^) R                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
- i/ @' Q. U. x* M/ }        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;
, B0 B4 a# y5 `, l        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
8 Q, A" Z; ~: [1 z) Z. w       
        BufName :=sprint("BF",Rows);
4 b$ K- C. C5 c* C- D6 s4 Z        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]);
4 L7 |5 s) e/ e0 K; I) _/ y9 I                 Buf.Name :=BufName;
4 _. L  y9 n+ F        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
4 i* \. i: i  Y5 c4 t        .MaterialFlow.Connector.connect(Buf,Machine);
! a9 x$ u$ j* Y% ^/ j: f) dnext;
end;
# e$ _) y! I0 @( W* S. |

五五

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

wudi

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