程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
" `" j9 z5 ]$ |5 ?! s% P9 Y        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
' y7 l* e9 B  i* P                inspect messageBox("Number Wrong...,",50,13)
1 x; i# U. f  _# W  g  L* |                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
- x6 T- Y( K% o2 M' u: r0 i* J                else
                        print "Cancel";
                end;
$ {& L0 o5 X; }3 I        EventController.stop;
1 n* o4 N8 V  T" ?end;
5 F2 @: h5 I' x# q( U# FPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
# `$ [, C: c; N4 Y1 Z                if j<i then
0 \) Y0 x1 h0 `8 L& P! X9 f                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
( w' A9 _+ g; ]' T4 D                        else
+ q  V6 ^- H6 y+ t                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
& _1 C1 ~& B4 k8 L                                end;
' D8 _& t3 R: [! U8 s                        end;
                end;
$ @3 t* r5 _  ~: C( i        next;
next;
& Q1 G& t# `) _7 K
end;

+ S- {( W! X3 [% P) L    Lines :=0;
: O' M' L# x4 r+ G        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
0 A5 o) G! F. v) H( L" B            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
# {& I, d. [; v/ X                            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;
: A* C/ Z7 ?  ^7 W/ D3 ?                        PartsTable[6,Lines]:=j;
8 `- ^: W" O; E" \9 M2 I' Y                end;
, \  X; M* u2 V) t# P% d        next;
4 _" v4 ~' Z0 |3 `        MachineName :=sprint("M",Rows);
4 u9 b, i! l4 s7 _6 U  G$ ^) l        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;
9 u3 H! J1 {2 t1 V% h        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
2 H% O- P, b9 z/ V2 m        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;
        Buf.Capacity :=5000;
+ F+ c4 Y* M) [. N* E/ i7 W* S" V* C        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
; Q( B4 A# I" P9 Rnext;
end;

五五

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

wudi

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