程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
9 ?  N) X! I; \        MachineName,BufName:string;
& i7 _- x( O, J) a) M        Machine,Buf:object;
* o$ D6 Z' a, ^$ x% sdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
1 e/ [' l( |) J# c7 H0 ^                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
5 _0 E0 c% ^% [6 T- @# n                        print "Yes";
( O9 |' |- P  w: Z5 ~/ @: q1 x- y, F                when 32 then
7 x. Z' \: L9 M$ l- h6 c                        print "No";
                else
- L! J# ^4 r( [0 U# t                        print "Cancel";
                end;
3 z/ E' w" j( ^4 z9 s        EventController.stop;
end;
PartsTable.delete;
- i9 M& [# n9 c) Q1 K7 t' c: r$ Lfor i:=1 to Number_Of_Machine loop
9 |3 V5 `3 B! u& i4 P        for j:=1 to Number_Of_Machine loop
                if j<i then
5 A# E9 B$ D5 i- S+ ?/ g- n                        if D_From_To_Chart[j,i]<=0 then
& W7 V4 g8 ^2 ?, G                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
. T4 i+ U4 I: s* T: `- J                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
0 L( e/ p! G9 L% g                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
/ P; w' f& b/ s7 f; y6 n                end;
9 c. d) x6 y% m1 W2 q  F        next;
" T$ {- d/ j( f0 W4 k4 i- lnext;
7 c; t6 W: F( e, [/ x9 ~# [9 z8 C
# X3 ]  U6 q/ E% ^1 m& Hend;

* o9 d" w+ ^: W8 A: w7 M    Lines :=0;
        for i:1 to Number_Of_Machine loop
! `' Z! _$ E/ y" G5 ?- p        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
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 @! j5 H/ x7 A) \* }                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
- B7 u/ B' M, r6 j2 p, W8 K$ ]" r% H        next;
$ o' D- }; s+ A6 b        MachineName :=sprint("M",Rows);
2 s/ @9 U& Z6 A! _: b+ c        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]);
1 y8 t3 p; ~2 O7 c1 Z        Machine.Name :=MachineName;
; n- H. Z, k( T, L        Machine.ProcTime :=5;
, m. l0 g% p: _) k- y) H! g        Machine.label :=sprint("machine_",Rows);
        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
8 J1 W2 Y7 I. X4 W# ?5 w6 K        .MaterialFlow.Connector.connect(Buf,Machine);
% A. I4 J; T4 {4 l3 gnext;
end;
' C3 L' s3 L1 C5 b2 X

五五

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

wudi

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