程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
2 D& e' q% p& N, V: [9 s        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
! |. [) Z$ z+ Y4 _  C& ?* t; P        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
4 y% M" v, w$ y4 U8 C6 n                when 32 then
3 x) K/ a6 M9 G2 p6 Y  A                        print "No";
8 d4 v2 n7 ~: v. c$ r" G5 {                else
$ \) ^% _' }, _7 w' ]$ n/ h/ I                        print "Cancel";
$ D2 J. D0 I2 l# Y% c' \4 P& K                end;
& X: Z$ e7 f8 E  E1 D+ y1 `        EventController.stop;
end;
PartsTable.delete;
  X( S! R, u+ N+ c  Vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
8 K. s6 k% i1 B2 R5 f9 x2 G, A- |                if j<i then
7 [) `3 Y: ^  c1 b                        if D_From_To_Chart[j,i]<=0 then
9 D1 M! F0 q: z7 L2 T9 I6 T                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 W' Y' K8 G" T6 o                        end;
                else
                        if j=i then
3 I9 a  B. Q* Z# s% \6 \5 i+ I9 ?                                D_From_To_Chart[j,i]:=0;
                        else
3 n: C7 d* F  H8 m                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
, _2 Q1 u, C" b% R# }  A                                        EventController.stop;
; F! Y, @. }" d" {" E$ H                                end;
1 r7 J+ [) w9 H: A2 z4 I3 z0 _1 J                        end;
5 m1 {8 \/ f/ C# m2 W+ \2 S                end;
& S' o" o' T1 t2 Q( r! F! v% z$ d        next;
next;

end;

    Lines :=0;
& b' Y' W3 q1 }1 I2 g4 n        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ I& z/ n  s3 `6 Y! J* Z        MachineSequence[2,i]:=Rows;
% l  o; T- G7 _' H; v            for j:1 to Number_Of_Machine loop
8 i. s. \; s; a) _                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        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;
3 l6 A. n$ c" K9 N6 o8 e                        PartsTable[6,Lines]:=j;
                end;
        next;
4 B# x  Y7 g: M' G7 A$ U  F        MachineName :=sprint("M",Rows);
' x. Y3 U& T3 u; @4 ]: 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]);
/ F+ X  J* ^- W: O; n, K  h        Machine.Name :=MachineName;
( L" D- k& e- i        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
& \1 M1 h! Q' @3 C0 R: [        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;
5 t( K3 ^8 [$ Q        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
! [1 r  L7 s5 H5 U0 ?5 t$ T/ j; n        .MaterialFlow.Connector.connect(Buf,Machine);
next;
* G$ ^, P) d, e2 ~2 D5 B, Eend;

五五

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

wudi

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