程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
- ^& |7 r' s8 S1 r        Machine,Buf:object;
9 c+ n! |- \2 _3 Ado
0 d: t9 d6 p8 Y        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
; T9 d) f5 U9 T* ^$ N% ~                when 16 then
  U2 z2 ~) c& [6 A                        print "Yes";
                when 32 then
+ x. R/ @7 c' X' r                        print "No";
/ O4 k) a: P6 F" k( ?% V; G  F                else
6 u5 H# R) R' v$ X0 L1 I                        print "Cancel";
                end;
% Y9 s! v- m6 \7 j$ D/ K$ M  e        EventController.stop;
) l( m4 s1 U- @* O4 l  N) Dend;
PartsTable.delete;
* M* d( {* M) v! K  L! ~. w6 }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;
( O0 U$ x+ o3 c; u' i                else
                        if j=i then
: ^6 Z! Y& A! b- q5 a2 E                                D_From_To_Chart[j,i]:=0;
) F1 T% ?) `0 P& t& H) k0 v                        else
1 U; _3 s# {0 O! @" t& H2 J$ g                                if D_From_To_Chart[j,i]<=0 then
$ w- d9 c4 j3 k5 v8 B! R$ Y" C) j                                        messageBox("distence<=0...,",50,13);
. K8 J4 ?% t3 p                                        EventController.stop;
                                end;
                        end;
, B2 Q+ `9 L( }& h5 x; ]                end;
        next;
; X' N& k: j+ C* v% b$ N. dnext;

: r9 B9 f; I! F$ @/ V) `end;

    Lines :=0;
! L# }; }- E) F! D# E% J        for i:1 to Number_Of_Machine loop
  b% F2 {" m2 N6 M5 b+ [* D        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) J; x# g5 m1 C) e2 S4 G) G. N4 L: A        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
* o. t# U/ N5 N$ G9 c8 m  Z                            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");
: C2 R! [6 Z, v1 K% a. f                        PartsTable[5,Lines]:=Rows;
& i; N5 b% Y* u8 f1 S                        PartsTable[6,Lines]:=j;
7 L1 A8 }! G5 \+ W$ B                end;
0 R& i. H- a) _  X, R        next;
        MachineName :=sprint("M",Rows);
% N5 c4 |: p, e$ ~* B9 \" n7 y        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;
2 ]6 g% U6 B  L$ r" C3 I( u        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" Y0 ^+ R: E# v! o. T. r0 O       
        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]);
                Buf.Name :=BufName;
9 ?9 r$ V3 p2 V        Buf.Capacity :=5000;
8 G* o' ?/ {5 L9 ^. W        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
  Q! S5 w5 s! C  {! \end;

五五

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

wudi

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