程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 F% u5 E1 n7 A/ Qis
% Q/ S, c+ L  n9 W        i,j,Rows,Lines:integer;
4 A" n/ ~- F' Q# _% s# q        MachineName,BufName:string;
        Machine,Buf:object;
do
  |  Z9 U- R6 y! Z9 ~' A$ @7 F        if Number_Of_Machine/=D_From_To_Chart.YDim then
/ q6 |; {+ Y& l3 E; S9 I                inspect messageBox("Number Wrong...,",50,13)
6 u4 H/ c9 }4 f  H7 R% _7 }6 @                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
; S3 `) U0 ~8 n8 G                else
                        print "Cancel";
                end;
$ x+ m. N9 N, x7 R2 W+ k3 U8 J        EventController.stop;
end;
PartsTable.delete;
, D/ b6 Q) d5 }) b6 K( Mfor 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
" o4 M3 `& O( y) r- P4 Y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
, S8 ^) I8 D( T( L+ h) \0 V                        if j=i then
  t$ g& ?. M9 \9 ^- c                                D_From_To_Chart[j,i]:=0;
- p/ ~! P# H( t7 m* ^                        else
! G; C$ Z( W" X* P) F" w" c" H                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
# s. a* N! \& r0 o  X. Y                        end;
                end;
        next;
7 C- |5 [' W$ Z5 f. T+ Anext;
3 \$ w5 {, P8 X+ O7 N$ o" V* U6 M
end;
9 D9 S& O' N$ q
    Lines :=0;
# c( s) G# f: ]8 u# c- g/ Z& [        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
9 e' ~" ~6 n" q( q. f) b: |! F6 L. k            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"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& ^" \# q! W- U                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
- }. U7 L3 N% h                        PartsTable[6,Lines]:=j;
                end;
, X% \' G+ i/ E, L% W$ t7 ~' H        next;
        MachineName :=sprint("M",Rows);
: t( z1 \6 }) q. a8 _* I        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;
2 G( C7 ]1 m6 S* [* e        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
4 V5 e7 v$ S7 G' ?        BufName :=sprint("BF",Rows);
) T& ?1 t3 [) Z  `7 w        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;
* T& x4 M# n- L% I        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
1 S( I5 m5 m- {% _) m( K        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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