程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
% H) A$ ]8 r, Q; Bis
; R2 Z$ x) k. l( J7 I5 q3 |) O        i,j,Rows,Lines:integer;
) n8 l7 k6 y, L7 u" @: ~        MachineName,BufName:string;
. {7 W- F, q  D" p7 X0 s  I        Machine,Buf:object;
$ Q3 Y1 _3 R3 wdo
5 ~/ h7 `5 d5 w( M9 `* E        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
* Y* u$ I& M2 C: a- D0 R, R: [                        print "No";
                else
                        print "Cancel";
                end;
) j0 g3 l, _9 z        EventController.stop;
  `+ E& h4 ]9 B; y0 O- oend;
* t; T: ?, C: y9 q' j& Z4 ~! CPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
+ s0 b" _; y# b5 F. s5 p+ s2 H: U" e                if j<i then
4 d6 B4 E$ v, U# n" B% ^& f                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
$ C: w" |9 O* d4 ]                        end;
9 P9 m2 p4 g2 i7 P# a& S2 R' e1 \                else
                        if j=i then
: E' {8 [+ ^4 ~" Y2 r                                D_From_To_Chart[j,i]:=0;
0 `4 l( ]) n( P                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
3 p/ Q4 Z* ]  I) h3 l                                        EventController.stop;
                                end;
                        end;
0 c( f+ w: S, }' h% o3 ]0 M                end;
        next;
next;
% f3 t( x$ W3 X% B8 _
end;

    Lines :=0;
        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
; {. `9 h/ l- u# c                    if W_From_To_Chart[j,Rows]>0 then
. k% J% d* ], Y+ M% s6 {                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
" |) e/ a8 Y. x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
: _. J' ^9 V( f) W/ Z3 ~+ e                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
/ _: O$ V) v+ F                        PartsTable[6,Lines]:=j;
$ Z9 H9 I0 x( z' f, n  i3 N6 h                end;
' @% N8 W$ l& z+ R4 Q0 I        next;
        MachineName :=sprint("M",Rows);
7 }2 k& C0 G1 U7 A; Q, i0 Y        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]);
1 u$ W* G( V0 u; r0 }        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
% y. |3 |: S) T, s, a, }       
: v6 v5 X" G3 C  [% K6 K7 K) `        BufName :=sprint("BF",Rows);
: X) I" p; M8 c! u" V        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;
, q( \$ N! g' }5 I7 m  `        Buf.Capacity :=5000;
$ r" o- R# ^; k0 R/ j5 _* v        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
& ^2 v5 c& O# \: X' A" Oend;

五五

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

wudi

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