程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
( R7 Z9 \: M* y% V. S$ w7 Q; _        MachineName,BufName:string;
        Machine,Buf:object;
do
3 _0 E6 R! q# a3 i+ X+ x4 C        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
# a2 j9 _9 _5 ^) C% {                        print "No";
                else
                        print "Cancel";
1 h8 l7 |( s0 d$ R                end;
        EventController.stop;
end;
" T- y- Y. R$ h% z. k. C! G. d& _7 Q/ qPartsTable.delete;
for i:=1 to Number_Of_Machine loop
; p3 t, ?) _+ r8 D% T        for j:=1 to Number_Of_Machine loop
1 `# P  c* i% F! J# R- N+ [                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;
                else
1 i/ Q8 e( b9 i# ~                        if j=i then
0 |+ Z+ J! h5 D# t" N! p+ o- p8 M                                D_From_To_Chart[j,i]:=0;
9 O- g+ M. t- E7 _! O9 a3 T6 |) N                        else
                                if D_From_To_Chart[j,i]<=0 then
! C3 z: C7 N! m* g& X                                        messageBox("distence<=0...,",50,13);
7 u! K3 F# w9 N0 G$ u  @* t                                        EventController.stop;
  H: _  D8 u; o( g                                end;
                        end;
- i4 _( B4 L$ H% Y& h* g5 h" A                end;
        next;
0 n( z: _3 G6 r  D2 Vnext;

end;
' V$ r- W1 p+ |2 Z. i4 Q3 S
& e+ d/ b* u: ^5 W. l) X    Lines :=0;
        for i:1 to Number_Of_Machine loop
# G; W9 Y6 \- Y5 m% J& b        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
) C6 h% D$ J( }            for j:1 to Number_Of_Machine loop
" i& d' f* L$ I& W/ P# V                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ K  {. o$ U. a" k2 D) t                        PartsTable[3,Lines]:=sprint("Parts");
2 \2 }, q: `( N! e5 D9 g( @                        PartsTable[5,Lines]:=Rows;
8 U5 {8 M+ p, C3 U2 F% ?6 }                        PartsTable[6,Lines]:=j;
4 I; {: Q5 T+ g1 @7 o# l                end;
        next;
        MachineName :=sprint("M",Rows);
& m, e6 @, Y, a2 U  ^        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]);
; ^$ d* E+ @, ?. Y        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
& [* V, ^) Y) Q& {4 @( R) u6 C        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
4 h4 b. ~* ]2 g7 ~" ^# d! }       
7 o5 w' q0 g1 \: z. k/ Z4 h7 i, L5 @' A        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;
$ i, s# f9 `9 K8 P( U! E& f6 ~        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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