程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
) r2 k  u+ k2 r/ K) ]% X        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
, g+ x) v8 Q: m- h9 Z2 O                inspect messageBox("Number Wrong...,",50,13)
: T. X0 s8 x) p4 G1 N! c3 G2 c                when 16 then
: Y' ]3 ^8 ^9 g0 a: m+ B                        print "Yes";
                when 32 then
1 |2 I& y" s  r' b9 c( }                        print "No";
                else
                        print "Cancel";
+ F" U9 S7 j' |; c! I  H# J# B                end;
        EventController.stop;
: n9 ?( X& [$ g9 iend;
5 Y' y! v8 }4 q  B% sPartsTable.delete;
% [2 F7 u  N; @/ i3 ifor i:=1 to Number_Of_Machine loop
6 d3 X' T( @9 [- w7 l8 K1 Z        for j:=1 to Number_Of_Machine loop
0 @8 z! V* g/ I/ M                if j<i then
3 O/ Y' _) L5 @4 Y                        if D_From_To_Chart[j,i]<=0 then
# s) p! `" {6 u5 l8 X7 ~9 l7 n( q                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 j  F5 t$ Z& ]                        end;
9 a2 l1 m' ^& p                else
0 \/ @/ F8 ]& u3 r6 R, C) _0 M                        if j=i then
                                D_From_To_Chart[j,i]:=0;
+ z0 r8 m( ~! w' i- j5 Z" h$ J                        else
                                if D_From_To_Chart[j,i]<=0 then
; }+ U- y  \( C! x6 w, k                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
: ?/ M0 O0 z/ o; h" }1 y: p                                end;
8 F' c6 q, N/ }  Y: f0 e, ]1 x, a                        end;
                end;
4 d% k& S6 v& O2 U6 c/ @4 z5 A        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
- |# k+ i8 g! R4 K/ Z" `. W4 g3 x                    if W_From_To_Chart[j,Rows]>0 then
) l+ U! j2 k9 l! `2 H2 i                            Lines :=Lines+1;
- n+ T* p! k% n: `$ {: I                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" ?, X# p9 P% v4 p: g2 k, V- G' {# Z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
1 x* u, P; f6 _2 K                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
- q1 E. R% w2 `& e, @" K0 Y        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]);
! x. e- u$ \2 [; O: G        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
' |5 d& Y; g2 ^2 d! {        Machine.label :=sprint("machine_",Rows);
. K/ d4 [* f0 w* v) x% y- p        Machine.ExitCtrl :=ref(Leave);
; `! K9 [  Y% C       
' E# r0 F+ [5 t6 Z% b0 D7 ~3 H        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;
# Y7 D, G" p1 r* R        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
4 H3 |0 _: N  s9 ?next;
end;
' i$ C/ c- [/ z9 `2 i% }+ N

五五

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

wudi

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