程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
5 G) g/ Z4 l9 L        Machine,Buf:object;
do
1 `- o- C% n# a) Q4 e, V5 ]* D        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
+ _' m, _3 X/ s0 v                        print "Yes";
                when 32 then
1 Z& \& M6 q& C( ]1 \3 e* e) L4 U# a9 I                        print "No";
& s5 r1 T4 Q2 E- X% B9 l, ?                else
8 N# J7 [5 H& r) ?6 F$ I1 E                        print "Cancel";
% _; Q6 `7 K; |+ k+ E8 o                end;
        EventController.stop;
end;
% R/ {# y6 j8 gPartsTable.delete;
7 [: S2 M& [, h- k$ h, K1 ufor 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
6 E5 P4 \6 l8 L+ m. W                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. _6 A& H0 m0 T/ x6 f1 V                else
+ N, r% b) N/ \8 _( I% j+ Y8 \                        if j=i then
                                D_From_To_Chart[j,i]:=0;
  T2 K& z& O7 m* X$ A3 D" q/ h( |                        else
                                if D_From_To_Chart[j,i]<=0 then
( t( f* U  s. a% P4 D                                        messageBox("distence<=0...,",50,13);
) f+ `  ?* a" S                                        EventController.stop;
                                end;
                        end;
( j1 I+ w% d4 M6 J1 H# W                end;
        next;
: U0 U- q* G" I, i  ]# {next;
9 [3 r# L/ J- l+ |0 ]! v' G, X5 k
end;
. r1 I: @/ E6 d
    Lines :=0;
        for i:1 to Number_Of_Machine loop
* H* c  X4 C9 g$ f" \% j. T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- }. I! @; P5 p4 {( Y        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
* G( ~. P+ _: L9 q5 s5 M4 i                    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];
  J' |! H: q* q1 o6 W( c                        PartsTable[3,Lines]:=sprint("Parts");
8 b. j1 r- O( q. p: q                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
2 m3 ~8 d# ^9 x4 g5 L( L                end;
        next;
) C8 h/ A  M6 r1 X        MachineName :=sprint("M",Rows);
        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 v* j2 `6 \4 Y        Machine.Name :=MachineName;
2 S5 w3 @" B" r% g' w. \        Machine.ProcTime :=5;
        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;
: |' z1 z0 N8 u% g        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
# I- q$ _" I1 y. @! b8 Q, ^8 Nend;

五五

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

wudi

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