程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
+ m" Z) Y* K' ?- dis
2 o! v8 P* W3 e        i,j,Rows,Lines:integer;
' q( ?' m4 H) e6 V        MachineName,BufName:string;
7 h' F- S" I* r, F: N        Machine,Buf:object;
do
; C8 }3 A2 V% p3 O        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) d" ]: T, }, V6 x; k  }                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
$ ?5 ^; D/ L6 [* s+ b        EventController.stop;
end;
PartsTable.delete;
# X$ k8 h7 j$ Xfor i:=1 to Number_Of_Machine loop
) q: D7 s  T& t        for j:=1 to Number_Of_Machine loop
2 W; D% H9 [+ w& h& _7 d                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 E; a" e7 y5 J- N" v  W& U                else
  Z5 [5 U) B# F1 k                        if j=i then
* m) m$ N) C) N- A9 Y& c$ u                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
/ V" L9 S/ O5 T/ n                                        messageBox("distence<=0...,",50,13);
0 V& |( R6 x/ O' \1 n                                        EventController.stop;
' [, F. a3 ~2 Q. x2 Z& u2 ~                                end;
3 E+ o7 q& [. Q) ^0 i/ u2 q% {                        end;
6 M7 y0 i' `$ Q/ f' `' o                end;
        next;
9 j3 B% D  V, d8 unext;
, E  `: R) t! c* i% i7 A
end;
, O! V% h' f( X$ F  G
$ I1 E7 c2 y" l, K    Lines :=0;
9 p) h. {# x" n/ y        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
" f+ C# {* l3 I- a8 |        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
& z3 L; a/ E  N                    if W_From_To_Chart[j,Rows]>0 then
/ _4 B' h% Z/ ~/ g5 {; Q                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
  {! V) o' X- ~/ p$ S                        PartsTable[5,Lines]:=Rows;
6 n$ r. G4 w4 W0 t( D5 L3 y                        PartsTable[6,Lines]:=j;
                end;
/ b: v+ d% H2 @8 X- T; O        next;
        MachineName :=sprint("M",Rows);
1 s6 g9 p# N6 W6 f/ l        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;
& f% D; y; H/ N* {/ W" p/ `, {# K        Machine.ProcTime :=5;
: Y8 I3 L  X  m  U1 {        Machine.label :=sprint("machine_",Rows);
6 H: A% t* M1 i) k6 y9 k        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
% T" B. r/ Y+ u% o9 _        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]);
$ ~( P+ r+ d# C$ R& v+ _: J                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
* }1 |0 ~' n! vend;
4 l9 E. q2 }! B7 E

五五

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

wudi

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