程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
! g  H3 v) U5 p5 X+ }        i,j,Rows,Lines:integer;
; T2 l7 l! `1 i* b        MachineName,BufName:string;
        Machine,Buf:object;
do
/ v1 t  m3 N& p4 d# s) S        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
  I( x+ I% F, p8 g) X7 Y                        print "Yes";
  M; J5 [9 q2 `+ p2 Z7 f; n# m! ^                when 32 then
9 f$ x1 n9 {6 c2 k  M$ W2 N6 d& Q                        print "No";
                else
                        print "Cancel";
! Q7 |" P1 Z4 t! X( a                end;
        EventController.stop;
end;
# o3 K% p* N6 L: nPartsTable.delete;
$ k+ o5 |- V4 n* _for 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];
                        end;
( G( H9 W1 a. y, ]                else
% n- a7 F- g  J$ |                        if j=i then
9 l, H6 i# T- G                                D_From_To_Chart[j,i]:=0;
- V- X8 {' @  o3 [                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
* S) G! p# h1 n# ]) n: d) f* R                                end;
" `1 \3 ]' \; D% v$ p  I' R4 j3 E                        end;
$ e$ U( A$ Z/ d- j1 c" y                end;
; Z% f3 e1 W7 t6 i; U1 f# S        next;
, G; k: [2 m% ^2 anext;
8 C" v/ x& y1 ^$ D9 o' D* p9 r
" _* v2 X$ \9 _, l# N( E8 K% |4 {end;
9 D4 H7 G$ ]" Z1 p3 t0 R6 R1 ]2 N
7 s* e2 l6 ^- n0 P, m$ V7 x- k& O    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
5 [" t5 d! ?" `/ J7 f        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"));
  W' j, U) v) Z+ v! {) T                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# X+ ^- _$ y4 Y1 k% I( s                        PartsTable[3,Lines]:=sprint("Parts");
# Q+ c) P- }6 D- c1 _                        PartsTable[5,Lines]:=Rows;
; q! L" f# K6 W2 K' p- u# x                        PartsTable[6,Lines]:=j;
                end;
5 f5 ^/ X5 p5 H( @5 s: u1 x( z        next;
$ `& c8 V6 ^8 H        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]);
  U: J. l- Y" c3 g        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
6 a$ O9 t3 b$ m/ S4 f6 u6 H" N        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;
3 b4 p# d+ D" ~6 {4 A  P        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;
6 m, |# e% [" s) K3 d3 b  }

五五

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

wudi

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