程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
3 w+ P% @, V# X& F1 |0 d        MachineName,BufName:string;
        Machine,Buf:object;
" [, h: w& v% H' Q8 d  x5 ^; Ido
$ d4 }0 I) Q! ^2 B7 I& v+ Q        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
% v) S- P" x4 Z7 D5 s                when 16 then
                        print "Yes";
                when 32 then
! l) g$ H8 a/ T9 f" f$ x# f; R                        print "No";
0 F, N9 t3 L8 x5 [) W# e0 y, F. k                else
                        print "Cancel";
; ?0 G6 ~" ~* m2 n0 I2 C                end;
        EventController.stop;
6 [" l4 C% G2 s: O# wend;
PartsTable.delete;
% u& U- D( j6 V1 \" kfor i:=1 to Number_Of_Machine loop
2 D/ |- s0 N7 e3 w        for j:=1 to Number_Of_Machine loop
                if j<i then
! ~2 g8 T8 j: R: d                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
5 V9 U! ~6 n6 X7 z                        end;
9 f$ D* X3 m& T' ?, c# e0 \( w# _                else
                        if j=i then
# |* _; Z: s/ b                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
% p' }/ q( @( l0 F0 r+ g  n& p  z                                        EventController.stop;
) U4 M- H5 H; E% m* V6 h7 m& ^/ z                                end;
* ?7 X: S1 J$ Y5 Y- {4 `% j                        end;
                end;
        next;
next;
! ^; E' J3 j, @! @- r* {$ ^. c
, C, ?; \( I' r/ X. Nend;
7 ^6 W; t$ Q) }; a8 l
; E, B+ j, n' H0 W8 P/ t    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, n5 |- p0 i0 a        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
& d4 N. p6 g2 G6 p0 a. S/ S; i                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( [5 x8 t3 {' O# Q' w7 q                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
" ~  T$ b) N2 j, q/ ^. v                        PartsTable[3,Lines]:=sprint("Parts");
/ _4 [! R7 Y, v                        PartsTable[5,Lines]:=Rows;
. b, S8 T, y. k- @% r* s- ]                        PartsTable[6,Lines]:=j;
                end;
        next;
1 Y, a% j9 B: G/ f        MachineName :=sprint("M",Rows);
3 h' F4 b% s' R2 Y( q5 G5 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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
; P6 i8 q0 t; p5 G5 T3 m  H        Machine.label :=sprint("machine_",Rows);
% g0 @2 R; W7 w; I        Machine.ExitCtrl :=ref(Leave);
1 p7 T+ e  D4 p: \2 P2 w7 Q       
        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;
& C! I9 s& L3 B7 e/ `        Buf.Capacity :=5000;
, a: ~7 e5 ~3 ~4 O4 n        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ x0 @& B5 d/ @, a8 u% G% inext;
. i* \* L0 {4 y  J& ]4 A- [end;
* Q7 c! h# {6 }; Q9 s  ^* u: `

五五

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

wudi

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