程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 K7 G) G6 }" Y0 y9 Z$ K6 R% B        Machine,Buf:object;
1 }! I- Z' w8 M# cdo
/ w) l3 d: `7 q  t; g& X) u+ l6 u        if Number_Of_Machine/=D_From_To_Chart.YDim then
. d2 h3 P/ W. `! F                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
$ E; ]9 Y0 T1 U$ o1 M) C1 }                when 32 then
& p* o# m: x+ u$ e5 W, W: }                        print "No";
5 Y2 t9 X, f8 b. z; m                else
$ L; X; n6 Q4 n$ s                        print "Cancel";
                end;
: ?5 A$ m: e9 ~2 y# J" P$ t        EventController.stop;
: Q, E  c# R2 d* C% n# j% C1 L5 _end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
! H$ M# p1 c2 m# t        for j:=1 to Number_Of_Machine loop
% j! Y, B+ }5 `+ M$ o- ^( h+ }                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];
3 Y8 g& d( j+ T& k/ }, J4 M                        end;
8 S$ P; g, ~0 {# v                else
- ]/ B/ a" Q: T+ k: T+ h; k                        if j=i then
7 T8 f) R$ @" f                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
8 F% H: l2 v" u                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
6 D8 p" j2 U! I. g                                end;
                        end;
: q3 ?& q& V5 G8 t. u/ k+ y                end;
3 k8 G& f  \, @$ L& f1 C' G  Z" o        next;
' C+ {1 {9 _7 q% O  ~* Unext;
- J: p9 m0 B/ @. m- G- h
end;
9 q  T! p: X* \' t+ m0 J; |
' U2 N4 d- J  u$ l' v' b    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, Y- x! ?: F, Z        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
3 E* G$ r! `7 O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
1 u# ^; N0 T# t7 ]3 D                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
. D$ d5 G; b+ n$ ]& c$ s" i                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
" G& ~2 I+ A1 o' V  M" G, P$ p; o                end;
7 N# C( Z% ~5 q' @  J        next;
! j$ ]/ Y  o7 \9 I        MachineName :=sprint("M",Rows);
3 ^8 Q' E  U; @: U. q1 {) }2 g, Q        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
: Q5 |3 \) E2 N' C! ~% W        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]);
                Buf.Name :=BufName;
0 s" l# p# c. b' L+ r        Buf.Capacity :=5000;
5 i7 H: h% L9 J4 B0 a" _8 q! }        Buf.ProcTime :=0;
7 g# p- `6 ]  \  o8 y        .MaterialFlow.Connector.connect(Buf,Machine);
0 ]6 L& @1 i- ^1 l- C" Y7 rnext;
end;

五五

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

wudi

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