程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
3 Z4 Z7 U$ T2 E1 `is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
) _8 U5 R5 S  _        Machine,Buf:object;
% c) ?: W) ^2 Zdo
. z8 B+ l: _. L% a, P+ J( {6 B        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
/ w- r+ A2 ]. T6 b  P                else
                        print "Cancel";
                end;
$ x& Y6 A# t) g5 R$ o1 Y# p6 K        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
& y& U0 a2 p7 F2 \3 P; A6 f                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
  q1 P9 \+ z) v7 _% l! a                else
                        if j=i then
4 F4 V/ L9 i' E4 J                                D_From_To_Chart[j,i]:=0;
  o  O- Z4 G) t. y4 U8 z1 |                        else
6 ?; o/ t) V6 M+ V6 `" j3 [                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
8 n- v& d. [' D* Q9 _                        end;
+ b( q0 G- o+ S6 b) ]. @' r8 ^8 R, D                end;
        next;
next;
# @. H% Q1 [- _9 i7 }) y- J
end;
4 X' v' Q& a/ A  n# O* Z% W
" ]/ @8 e8 A0 l; a3 G9 G7 w    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
4 b. O! L) N/ ~. f6 m        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
( p9 Q) c, t) W3 b1 |" j0 _                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
& m' H$ B  L" {$ ]                        PartsTable[3,Lines]:=sprint("Parts");
( |; S. _/ T. W$ u" b( F% O1 L: f7 J                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
; @4 l1 g1 m6 `# `- m7 j        MachineName :=sprint("M",Rows);
8 Y* M, b* {- S, k7 s        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);
+ ]# }: P+ Y0 U) ^0 ]        Machine.ExitCtrl :=ref(Leave);
; r; X" K, c0 d* l       
        BufName :=sprint("BF",Rows);
* R6 m) y( F0 ~) G0 e9 n        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;
  s4 g4 N1 `. L' V+ g' ]end;

五五

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

wudi

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