程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
- b) p% Z- q# F# Q9 K  k$ ]        i,j,Rows,Lines:integer;
9 x0 m) ^8 V1 r* N        MachineName,BufName:string;
3 V, x6 Q9 m8 v9 I; d0 d  y6 U        Machine,Buf:object;
do
. b2 [% T* s. H( R        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
+ d1 G+ E8 d1 u8 }! [' ]0 l        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
$ s$ W5 N, ]* p' l* O; F( u                if j<i then
  h( |$ V% ~8 b9 _+ d/ U+ c                        if D_From_To_Chart[j,i]<=0 then
, A  l2 x- C% v# A/ b* ?( d- A3 m; C                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
8 S4 i* }5 g% G- B% n                        end;
                else
                        if j=i then
1 [5 f5 }" L2 s7 m6 S: ?  [& o                                D_From_To_Chart[j,i]:=0;
' F! R5 Y( |* x* E2 i6 n1 J; @; l$ P                        else
+ r& n2 G+ ?. Y9 q                                if D_From_To_Chart[j,i]<=0 then
* P) b' ?& Y8 y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
! |% G- O* q, q# F0 q                        end;
                end;
        next;
% Z5 S' E8 N9 Y8 H; v6 u0 \next;
* m+ n7 j/ z) v: x# F( k" x3 K% }
- i+ V( _" ~8 Jend;

8 g: R' a6 ~# j* E1 k: D    Lines :=0;
8 X" V6 ~: u* Z) s        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
                    if W_From_To_Chart[j,Rows]>0 then
5 W  C9 K8 `3 Y, g                            Lines :=Lines+1;
* c" ^8 o6 L$ k+ A- `& \# C0 d" o                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( V1 x7 {" y6 k# X                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
; H9 j; f& g& M( F                        PartsTable[3,Lines]:=sprint("Parts");
2 t# [4 U1 t9 l+ x* W1 z                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        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]);
& }  t- C) ]$ O+ ~        Machine.Name :=MachineName;
6 h- B# s4 |% R, x$ }3 ?1 `& l        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
  F) e) x$ J* N        Machine.ExitCtrl :=ref(Leave);
8 l$ z, \7 R; G& o* G       
& g8 g4 U, \, d5 I. X4 W, F        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;
: j9 E; t4 [; m) \. ~5 |6 S        Buf.Capacity :=5000;
; e4 n2 b6 t& x" }; r2 z3 }        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
# H* [9 X" C. a* q/ V& snext;
end;

五五

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

wudi

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