程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
/ I* ?4 k3 r# U        i,j,Rows,Lines:integer;
8 j& Q4 `" z! U' ^) _5 B6 k+ w9 y        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
0 P. b+ X+ s# h8 V                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 e' j+ f" M, U& ^6 E                        print "Yes";
                when 32 then
                        print "No";
) F" h( Z1 S/ D3 b. o+ U                else
                        print "Cancel";
                end;
        EventController.stop;
$ ~+ U! U. s" ~3 Q  B/ mend;
8 K8 J* s4 s( Q( F  _( y3 ePartsTable.delete;
/ G& T! Y% u  h2 {) U( Y. Kfor i:=1 to Number_Of_Machine loop
  E7 M% L7 X) ^5 M- Q; A9 f        for j:=1 to Number_Of_Machine loop
; A9 k% T3 v4 y" B6 b                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;
$ N/ d$ m$ V. H! ?: W& i& P! H; b                else
                        if j=i then
+ e. v. K6 ^  b9 {; A                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
) @" Y, S' c. T% a0 z( ?                                        EventController.stop;
; [& j4 J$ i) B! k+ S                                end;
                        end;
                end;
0 \1 n1 o1 m! K+ ^        next;
next;
, u' r. k! A/ t9 {
! I8 r( ?) p3 G3 l% ^end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
) v$ B$ `. i& S: B: y        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) z. C+ p- ]3 L$ `1 }            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
( k+ B/ p6 i% U4 v$ V                            Lines :=Lines+1;
. d2 R- p; v) o9 y( v                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
2 k" ]) P' r& l4 N# Z                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; _$ ^- F: a& F# c& H+ Q# v                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
8 S. M6 s/ _8 {" l; q                end;
        next;
        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;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
' k1 O- ?1 i% ]9 w& h8 R       
* r$ l( _4 I; X+ H        BufName :=sprint("BF",Rows);
, \; d2 J3 t9 t5 U        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]);
8 ?1 t# F9 {4 R1 F. n# [                 Buf.Name :=BufName;
  f. o* j+ Y) k' I3 ]- a3 @        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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