程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
& _9 L! D( C. y* S1 S# p7 dis
        i,j,Rows,Lines:integer;
) C) _) J3 m) M# ]        MachineName,BufName:string;
! D. y1 W* J% Z- Y        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
' f. M5 K7 }5 N6 {# v                        print "Yes";
- D$ {0 E0 _1 }8 R6 v7 c                when 32 then
" q; r# s7 d2 ~9 {' ~                        print "No";
                else
                        print "Cancel";
# [) M5 @  p+ O7 _: a                end;
6 K7 G+ r# x4 n$ Z1 g) F        EventController.stop;
end;
+ L- S5 [' ?4 k3 O/ A% nPartsTable.delete;
for i:=1 to Number_Of_Machine loop
' |* ^) g8 S  y. u7 f# ]        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
+ w2 D, P% O6 x* i8 ]8 k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
# y) h* `" S# Z; t                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
: d' m) T7 _7 ^                                end;
5 S5 I2 x0 D* Q" A                        end;
                end;
0 l8 O/ a- b# M( C4 x. I6 N        next;
next;

end;

4 H" t! h5 a6 w# y% b! R3 L    Lines :=0;
6 N( N3 v4 J" b- F        for i:1 to Number_Of_Machine loop
. E; A$ c# N5 l2 ~0 U# F. Z        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
. z8 Z" H' S0 B0 P; K        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"));
, P( t# [5 q+ D5 A$ N; H                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
4 [! N" D+ S: c) F/ c/ A% |                        PartsTable[3,Lines]:=sprint("Parts");
- g: e/ k& a1 s6 i  a) T& M                        PartsTable[5,Lines]:=Rows;
" n- Y! o: F6 D/ Q. x0 D$ {, h; ]! W                        PartsTable[6,Lines]:=j;
5 D4 q' d9 b6 ]# t4 u                end;
: ?4 Y3 a2 F2 W* ^/ ^7 \* s6 c        next;
: e  I6 P* G4 O  f4 u; h        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]);
        Machine.Name :=MachineName;
6 g" W5 R% Y6 T9 t9 h! R        Machine.ProcTime :=5;
7 a; }0 \% S6 r        Machine.label :=sprint("machine_",Rows);
7 q  ?( x& ?* S! _/ B' _) y        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]);
7 a; {5 x& g+ F2 q# d) d/ X                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
7 g: j; t+ G" i# ^8 Y0 R: D/ Q% k        Buf.ProcTime :=0;
8 ~" ]' W* P! z* w) n6 F. v6 c5 M        .MaterialFlow.Connector.connect(Buf,Machine);
next;
4 s, F8 `2 b/ n) yend;

五五

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

wudi

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