程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
" T2 t# F+ P, O: j  ~4 B' M3 O# fis
        i,j,Rows,Lines:integer;
7 b5 U: u2 g, J( [, N        MachineName,BufName:string;
        Machine,Buf:object;
, [5 o5 Z8 S* d# T5 }. G/ Cdo
! v. a2 j( E. c: G3 N        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
) k; s$ q! j0 q! f  T                        print "Yes";
                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
) y4 B+ a4 F! \: ePartsTable.delete;
for i:=1 to Number_Of_Machine loop
, \- {$ I) v' Z2 D        for j:=1 to Number_Of_Machine loop
) o. J" ?& u6 p9 Z. Y                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;
/ v5 E. o: x; W                else
0 Q( }1 _" _" l# C" O3 }                        if j=i then
- ^: P+ c% e0 F+ w; S1 [                                D_From_To_Chart[j,i]:=0;
                        else
/ S) ~( `; m! k% y                                if D_From_To_Chart[j,i]<=0 then
" f6 L- T) N# v                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
- n$ L. t3 K5 Y9 G                                end;
) j7 ]" Q' Z" f- P( W) e! c9 F7 U                        end;
: `& B- L* T" v' W                end;
8 U8 O' N% `9 ~: @1 c        next;
. h, U7 N" J8 n5 o% bnext;
; d. j. l# ~- M+ F* K4 ]2 O( Y
end;

    Lines :=0;
! O7 `+ _2 g/ _7 H1 J        for i:1 to Number_Of_Machine loop
7 ~7 ?1 F! p( m: U        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
& [6 n% v# W0 K7 r; @            for j:1 to Number_Of_Machine loop
0 D; h$ v  s" U( B0 i+ Q2 I8 w                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
6 B7 _" R/ q7 l0 j3 k+ L& w2 ?5 `                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
& v4 R; B; v" O6 n: \3 e$ b2 k9 T; v                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
) J3 v3 ^( n: D- `3 Y                end;
        next;
! M  s5 s! o9 I. D$ E7 e* T* G        MachineName :=sprint("M",Rows);
, N4 z. i) H6 Q9 V        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 J  j% P& [' h6 z/ w- I        Machine.Name :=MachineName;
+ M5 O, [" ~( k& k. J& B$ u" k  Q        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
) t1 S% V4 k1 J) v* s( x% n4 W2 \        Machine.ExitCtrl :=ref(Leave);
. p. ~8 R* z, U" R# B0 o) e4 u% U5 a       
/ X! a) E/ u' a; D2 I        BufName :=sprint("BF",Rows);
0 L' b# @$ e* K" |3 m        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;
& l% S. S0 P1 S        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
6 w8 ~) y& _6 }) G9 ]        .MaterialFlow.Connector.connect(Buf,Machine);
1 Q1 Z, H$ `7 `& t" m7 i2 G6 r. i& f2 U7 vnext;
# X8 Z0 A! b' d  M8 ~9 Z' F8 zend;
4 I& y* _  g& _3 I! T5 F% ?/ E

五五

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

wudi

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