程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
3 j; ~# c+ X7 B' |        i,j,Rows,Lines:integer;
8 M* b* f2 h0 D, H( D        MachineName,BufName:string;
! S0 X, P6 W% h, C! l        Machine,Buf:object;
: p( D2 B5 x3 j" Qdo
, _0 e. R3 m$ ?3 `. \- M        if Number_Of_Machine/=D_From_To_Chart.YDim then
, p! A& m7 O6 p: h! x$ c9 w                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
8 q! z: o$ d/ y: f' e8 V. G8 o                when 32 then
' f3 K7 Q4 A# k+ D                        print "No";
                else
                        print "Cancel";
1 l) s7 T6 |# w7 D2 P                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
5 u+ `. @1 O9 K        for j:=1 to Number_Of_Machine loop
) d: `+ R2 w2 u( s; q                if j<i then
# e" w0 g7 v# _  i8 F                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
# G9 F, J, ]5 D) i                        end;
                else
7 ^& V) L0 f5 A5 `$ c# v                        if j=i then
) V$ \+ ]: t- \4 t                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
+ D& ^' ^0 }) ?3 }1 Y                                        messageBox("distence<=0...,",50,13);
" S* n  `8 U1 W0 m9 w/ H                                        EventController.stop;
                                end;
8 p4 n) z* s; }; d% B+ G                        end;
7 b4 U/ ?, o6 N9 ^( }                end;
+ {7 d8 N2 l+ _/ [& }+ q6 W; V5 A        next;
next;

) v2 g5 O/ @  l( X# P2 I% ~8 P, @end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
9 i3 i% m$ {" R" r                        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;
" ^3 q3 r8 P' x; ^1 |        next;
5 {1 n; {2 D) ]) A9 S  ~        MachineName :=sprint("M",Rows);
        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;
" A- g- B* h, @7 }8 O* K8 O9 a        Machine.label :=sprint("machine_",Rows);
% l" x( N1 `. \        Machine.ExitCtrl :=ref(Leave);
       
        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;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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