程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; n8 L+ t; G' H, {is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
, u0 M1 b7 |2 v, a$ Tdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
1 n8 ~9 \! U- g% F! t6 G- t                when 16 then
                        print "Yes";
                when 32 then
( \' v: G' m8 ?& P3 \3 ?( Q                        print "No";
                else
4 z/ `3 L' k$ @. A/ S# V0 w4 f                        print "Cancel";
                end;
0 u6 D) k* w: E" p$ ~6 Y6 ~        EventController.stop;
end;
8 `1 o' k+ o( x; C; ZPartsTable.delete;
for i:=1 to Number_Of_Machine loop
5 H: ?$ j# k6 J: L) u% y        for j:=1 to Number_Of_Machine loop
5 r9 w4 U/ t1 U) ?/ f! J4 E, t                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
# @) E% g5 C; ^2 k/ c                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ Z! L4 I/ I$ w. @6 s( G                        end;
) Z& X" R/ X. D% |# S                else
                        if j=i then
; x" X8 X7 d7 q; W9 x: E                                D_From_To_Chart[j,i]:=0;
, t9 O) C! _$ X( b; X6 _                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
9 M7 f6 F2 I- i* ~, O6 G& i, ~5 W& S                                end;
                        end;
* p8 d; K- z+ K                end;
9 X1 i1 H" a6 |. K1 c  L        next;
next;

5 H% F! n) i4 j* A" p. |, s, Cend;

4 q2 P4 R  \. c    Lines :=0;
: \$ F7 b$ X) \% ]        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
; \# H9 M5 e2 s; D3 j            for j:1 to Number_Of_Machine loop
, J& u: L. v2 l0 h3 @                    if W_From_To_Chart[j,Rows]>0 then
: k. G; z. T' g' N  H0 |2 p1 f7 x1 }4 y                            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");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
' p. r$ w" t4 s# G8 F        MachineName :=sprint("M",Rows);
) ~# u, M; `. ~7 X- `0 k+ @9 H        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 Z) V: ~: K6 H& ~        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
% M. ?/ u1 Q( [3 @5 s0 J        Machine.label :=sprint("machine_",Rows);
$ q3 x! v  S( k        Machine.ExitCtrl :=ref(Leave);
. X& X  D. _6 n% w, ?0 e8 i2 ]       
& d; i$ Q- }, {) j4 [, T        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 Z. S# i. q: v2 W0 a  L. {        Buf.Capacity :=5000;
6 q' k, i. t0 j& ~5 O        Buf.ProcTime :=0;
0 F* A- J. S3 U. n" }: W) d( C        .MaterialFlow.Connector.connect(Buf,Machine);
" Z7 q6 W" X9 f- `next;
end;

五五

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

wudi

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