程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 J1 x: [4 M' \1 f7 f) n/ ~) pis
        i,j,Rows,Lines:integer;
% z5 I' h) W' ?! p) R        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
. N/ E% x: m8 w% n7 ^$ ~( s                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
' F" e) U# z! g- F( p; J                        print "Cancel";
2 V" _( g7 W) ^                end;
9 R8 C9 w% F7 z. p% M7 {# `$ y' i        EventController.stop;
end;
! C2 L, v6 `0 K+ s! gPartsTable.delete;
$ m# I$ B  v: u7 L6 L/ v8 Cfor i:=1 to Number_Of_Machine loop
+ _. z) N" O( J& J& K1 E        for j:=1 to Number_Of_Machine loop
0 n- {3 M% U# z+ v: }+ i& T                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
6 B& c2 A7 i' I6 t) H* f' s& {                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 B; g: d; C  T6 w                        end;
5 c8 F* O2 b. [                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
" Z0 _8 d6 F6 J7 f& r) e                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
) w) ~9 l! {- o/ c7 I4 l                                end;
+ j1 e# g" `; w  C- l                        end;
                end;
        next;
next;
/ r9 N! `. a0 h1 }9 N7 y
! B! m. y4 z$ \! G" a3 send;

4 p" b; ?* [' H0 L$ A    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
. {& ]  a( z: Z" T5 E" C  w            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
4 H0 ]5 ?& e0 m" \/ }8 B# s                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  K- K1 b: x# R! g                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: S) T0 Y% C: g# j! N2 j  w9 W                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
2 S5 L' n! A3 r, J" k6 k                        PartsTable[6,Lines]:=j;
- G. `2 F4 I6 ?0 K: t                end;
        next;
/ U/ S- {- Q5 F9 }. ]9 M- g- n. |        MachineName :=sprint("M",Rows);
/ \: e/ }6 x: ?1 @% z8 Q/ t" N        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;
        Machine.label :=sprint("machine_",Rows);
7 w. T7 F+ Q8 K8 y3 D; I        Machine.ExitCtrl :=ref(Leave);
/ e5 I9 @5 A% h% n) ?' T       
9 p( f" O: k6 a( l" }3 H8 |        BufName :=sprint("BF",Rows);
8 x1 G, k# D" S- E0 A        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]);
8 G8 e& z6 d7 p+ D4 C6 b7 @9 }" k                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
! o3 l1 h; Y9 w" S9 W( y) B        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
8 ~  Z' u6 q7 h& knext;
end;

五五

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

wudi

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