程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 R, `1 v/ Q% F/ C7 t) I) ]& Qis
        i,j,Rows,Lines:integer;
; _3 `( K6 i) t& B  [- d        MachineName,BufName:string;
; g7 |# g2 r  m6 n        Machine,Buf:object;
  u4 u: E8 u% rdo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# B: @4 s: q3 O! x% F                inspect messageBox("Number Wrong...,",50,13)
/ Y/ y8 ~4 o3 R                when 16 then
, I$ x8 [) f1 Q" e/ K9 N                        print "Yes";
+ I8 o* o# \' q5 H5 I                when 32 then
% ~, C' n! J' G; L" W. M                        print "No";
3 k3 ^5 t0 T. v/ l                else
; j0 ~' g& `7 S( o' i                        print "Cancel";
                end;
        EventController.stop;
- U1 s7 Q- R) M! ^/ k# Rend;
1 k. ]. y) Y% T  e( zPartsTable.delete;
6 e& ?) l4 @( L  T- |7 J4 k# H3 Rfor i:=1 to Number_Of_Machine loop
! K/ P: o# ]7 G+ N. q( P  q4 Y        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
) O8 y3 T9 ~. L6 ^/ C" H: w  L3 x+ Y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
7 z% y) N  J' ^                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
, G2 f: g" t$ I, \                        else
; Z/ \6 h8 P* P                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
8 Y; ?3 B) X/ ]3 U7 `4 j                                end;
                        end;
5 Q1 ~3 b9 k5 k  p; ]- w3 O                end;
! J3 o2 U4 E% b2 E        next;
& V) b. R, E7 Z8 Rnext;

9 Y* Y. ^. l( r3 T1 l' x& T  Vend;
7 h* t" s7 V" E6 R; ^
! ]3 p, i0 Q* D9 j7 q/ s0 K$ b/ u9 H    Lines :=0;
& H) o6 b" l: J) Z/ s        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
- k) ~$ s% N" r1 x3 \6 K8 d        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
8 Y# c; p9 \8 F5 [* G! U                    if W_From_To_Chart[j,Rows]>0 then
7 k. m. j9 _  i2 `                            Lines :=Lines+1;
# N& L  o5 c2 c* G) e* X# n' C0 i                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( i, ~, O# O$ l# M4 U% q. H                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
9 x7 p5 A; G+ l* a1 F) G  q4 V: k                        PartsTable[6,Lines]:=j;
                end;
( p% \* r& l. j2 e: C        next;
/ P9 [2 v# G, i        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]);
+ [7 F7 M) y* k7 v: \        Machine.Name :=MachineName;
" S. @2 l+ H" a) }        Machine.ProcTime :=5;
% U" i1 `8 o3 F8 S6 t3 e7 @        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
! Q5 E; n8 n' p        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;
) F) d1 J; J2 Q5 V7 }) w        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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