程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
. S3 q8 G5 r& e% K) j$ `7 \# u  ~        i,j,Rows,Lines:integer;
# I0 q2 Q1 C6 o# V4 ~        MachineName,BufName:string;
) |: E& g- X$ p$ q6 ^( G) S: ~9 k        Machine,Buf:object;
do
5 o4 [3 k$ i% ^+ L, ^        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
5 M& ~9 G- `* b+ M2 `9 _: N                        print "No";
" G9 N  s. K+ I7 z8 F: z                else
                        print "Cancel";
                end;
        EventController.stop;
end;
/ }" ]. ^; h( KPartsTable.delete;
; H( ?$ E# p0 zfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
5 f( w" a, s4 L) y                if j<i then
! i; O, p7 j2 T: _' Z1 [                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
( L, O4 s+ w2 h( A                        end;
                else
# k! s. f$ r. z$ X. B1 M                        if j=i then
1 h. |2 s) _: C; |                                D_From_To_Chart[j,i]:=0;
                        else
% p- p; V) q& G5 {6 g                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
, i# N4 X, d* W$ g3 V; ]8 l        next;
- }! Q8 d! G: y' d7 ]) s+ Unext;
) s3 w1 R! Z, E8 [# m# m$ f( c
end;

    Lines :=0;
" i3 O$ E* \6 _- ]% T8 l3 i        for i:1 to Number_Of_Machine loop
* V$ V2 \# X- V        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
% Z( a" E' O7 q; t/ \% p. H. Y                    if W_From_To_Chart[j,Rows]>0 then
0 G, l/ l8 Y* m                            Lines :=Lines+1;
8 u& B$ C7 [& h                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
, g- p6 [4 a* ^        next;
        MachineName :=sprint("M",Rows);
; _) D0 N/ g6 Q2 A% I8 ?" L( n- J4 @        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;
! o) G! i0 ?- j9 P4 g/ g4 T) \5 k        Machine.ProcTime :=5;
- B. r9 N6 J* c: y$ B& k2 t        Machine.label :=sprint("machine_",Rows);
. q/ V4 i" ^: {' ]8 A& K        Machine.ExitCtrl :=ref(Leave);
       
4 H5 E- i7 S* r' v1 D+ k3 c- i/ O        BufName :=sprint("BF",Rows);
        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]);
. Y* c) o# t1 G0 H  N0 y                 Buf.Name :=BufName;
+ z( V2 u/ C9 [, {        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
0 w3 [+ h) r& n& w$ M( `        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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