程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
2 O  c7 n1 d7 N: F6 W$ K5 u; M( kis
  K6 C& U( g- [+ v/ s, S' P3 d! m8 Z        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
- v3 _, j- e% X2 g2 t* D        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
! O% W) c8 l$ o7 q& ]' Z8 h4 f                        print "Yes";
, z! j5 Z/ \* k                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
4 |( E; }1 O; Z        EventController.stop;
" H! M+ V+ ]! o/ X9 G8 N+ Cend;
PartsTable.delete;
. {8 u5 N  ~& afor i:=1 to Number_Of_Machine loop
; V: V$ g0 L7 E6 t, {* C        for j:=1 to Number_Of_Machine loop
                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;
7 j6 X$ Z' X% \3 A: }& U                else
; a7 G) U3 z* ^0 L                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
9 }1 m' a; z' |/ Y+ {8 g                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
7 |6 a0 G% d" Y& y6 p7 i* s        next;
$ \' r( j* C- q/ @next;
1 D' S" v* u: _& `. v
end;

    Lines :=0;
; }! @; B' d& v        for i:1 to Number_Of_Machine loop
' P0 S6 Z; x4 f3 _! T        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
, e/ [0 q* b$ [0 k! y' U5 }# v        MachineSequence[2,i]:=Rows;
) w9 r& X3 E) U) u' K6 [! e8 p. o            for j:1 to Number_Of_Machine loop
/ w6 ^0 r- k4 G9 {. f                    if W_From_To_Chart[j,Rows]>0 then
6 H' }8 f, D( v; E1 V! n  q                            Lines :=Lines+1;
6 p7 J3 i' r0 P8 B/ N1 b; \, }                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; ]6 Q% n1 g# A! S5 K% ]                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
9 ?( m  x% @& ^8 P0 R( q                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
$ `, }! ?! q5 j; k3 I        next;
; Y+ R. K7 @$ o        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]);
% ]* ~5 _+ s* ^# c0 p- j: q        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
6 H" E8 a. W  C6 |+ @# D        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);
! v& B# x" H1 I- ?  p: _next;
end;

五五

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

wudi

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