程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
$ k: t: g) r8 Y6 `5 q/ e& A; g! p        MachineName,BufName:string;
: p  U+ W5 b. o, S        Machine,Buf:object;
do
4 Z# f+ }. k  r        if Number_Of_Machine/=D_From_To_Chart.YDim then
9 O$ t" Z6 _! A                inspect messageBox("Number Wrong...,",50,13)
2 p# W  H" i3 k  z' ], J0 m0 X                when 16 then
( M8 J4 |; Z$ q5 l                        print "Yes";
                when 32 then
  P- `7 u3 a1 R8 J' ^& U' y                        print "No";
                else
  f4 S5 q% t  [1 h+ M8 D6 ]+ F/ L+ p                        print "Cancel";
' M) U1 g! h  r' \  Y7 A; \0 |                end;
        EventController.stop;
end;
8 H3 d2 P; @/ v6 X' K3 d. gPartsTable.delete;
% z) e% U$ J" Z0 n, k# j' \6 c" Tfor i:=1 to Number_Of_Machine loop
7 d; X  ?7 G, q4 i6 m* t9 f3 f. {        for j:=1 to Number_Of_Machine loop
                if j<i then
: d# @' q# H7 M& C4 f$ X1 Z# @9 y& c                        if D_From_To_Chart[j,i]<=0 then
$ v# a  l% Z$ k5 ]4 `7 d0 C/ _                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
0 H: j/ l' A8 X6 V' \                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
5 U. H0 H( W1 W$ f" m3 H; ?. Q/ o                                end;
7 F4 N0 D2 u5 p; `* n" j; w                        end;
                end;
) ?4 w0 z0 w3 r* a. y5 P        next;
next;
+ {$ O% t* o) `( O) k3 ]
, m) C, [% @2 W* L0 D+ |- F1 Bend;
% ]- |( o7 g3 e6 d, i$ \9 J1 l
    Lines :=0;
# j( ], G. R" W        for i:1 to Number_Of_Machine loop
9 f* ^9 u" i0 d0 ?* R        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
; y) M7 r  m3 K                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; X8 H/ H' b# O. D% t                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
- |- E6 q% p6 }& D$ U# b                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
, C8 v) R5 C' _8 {" |$ E                end;
8 F+ C. a: A9 z# e, f+ U& l        next;
        MachineName :=sprint("M",Rows);
- b1 M- ]% F0 K  Y2 z: \        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]);
( T1 v9 X; q. Q* W) c        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
, r2 q$ r9 X0 r9 Y$ X5 r8 [4 l$ O        Machine.ExitCtrl :=ref(Leave);
       
        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]);
. D) d" V( y+ x                 Buf.Name :=BufName;
4 P, h  `8 _, R8 H* T6 F0 b        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
, o& J# e, B$ b( S  A5 P        .MaterialFlow.Connector.connect(Buf,Machine);
, w. N0 u. U* ^  F" qnext;
  F3 q1 q" X9 u+ gend;

五五

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

wudi

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