程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
7 ~* T9 `5 k: A* K1 B  `+ [is
        i,j,Rows,Lines:integer;
6 j- U* V5 ^. x  X2 ]# B+ W        MachineName,BufName:string;
% b2 I! b, b( c' k: N, }        Machine,Buf:object;
do
% d5 C0 N: u9 I4 m        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
6 {% C* M: I# E7 x                        print "Yes";
- J8 e7 ~" H0 {5 Q: n% w8 [                when 32 then
                        print "No";
                else
4 y2 j5 q( U+ j4 v. n' m0 t. J. r                        print "Cancel";
2 O- `% U% p2 e8 S* v                end;
        EventController.stop;
end;
7 Z- H: k  M1 M& `4 s% x! NPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                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;
                else
1 h$ r3 {9 x! ]- m: p" Y                        if j=i then
, ~+ U0 i" {+ i5 P* B# s7 X! q                                D_From_To_Chart[j,i]:=0;
                        else
, [1 ^6 O0 A" h- a! r; l                                if D_From_To_Chart[j,i]<=0 then
. ]' Y% }4 ^7 q  u) R% b' S: A# [                                        messageBox("distence<=0...,",50,13);
: Q6 e0 f$ w- Z$ |) a: j  |                                        EventController.stop;
                                end;
                        end;
                end;
3 U2 o% _, i7 E8 K  s3 {# l        next;
next;

+ t4 F! y3 a5 d2 G& Gend;
+ o/ i% e7 Y/ R% s
4 j. C8 v$ N' ]: o5 F    Lines :=0;
        for i:1 to Number_Of_Machine loop
" G" f$ n8 n, W) ?% G% P        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
2 l; f5 ~) a& o+ ^2 |' ]& }$ d                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
3 N/ F: M5 p* ^' N" Z& g                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
# }* B! ]5 |" a" N  B! E2 A                        PartsTable[3,Lines]:=sprint("Parts");
) ~/ h, Q; l! f% Z5 p                        PartsTable[5,Lines]:=Rows;
2 e! R  H; }( J7 |6 r                        PartsTable[6,Lines]:=j;
                end;
4 Q  Q# B0 E& b2 Q" ]9 A# A7 W$ J        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]);
" u+ c1 @7 T) \        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
6 J# e  `2 x8 @8 l        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]);
5 ]  x) I" N  m3 C9 p. C- z( M                 Buf.Name :=BufName;
6 G0 y: O: j9 V# u        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
( q' j3 y1 \+ C2 l# _end;
$ P( z. [% K0 N8 W

五五

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

wudi

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