程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
, Y2 K' L8 e+ Yis
        i,j,Rows,Lines:integer;
6 r  Z/ g7 v7 T- j5 U1 ^        MachineName,BufName:string;
        Machine,Buf:object;
: c# R- |9 ]6 C0 @do
. d5 P7 g) j0 f' f7 {( [4 s" X        if Number_Of_Machine/=D_From_To_Chart.YDim then
) ^3 K7 b3 g0 h6 R                inspect messageBox("Number Wrong...,",50,13)
& P) Z+ f& X  w5 }                when 16 then
                        print "Yes";
0 [" C9 k! \0 s0 C( I& M! C- V                when 32 then
* \3 {) J% f% u/ Y3 k6 n                        print "No";
                else
2 t& u) I; y& P" D" s. i* H0 J' |/ b                        print "Cancel";
                end;
* K# A3 x2 a1 |, r" s" Y7 x        EventController.stop;
end;
PartsTable.delete;
( P. g' D5 I7 K5 s1 D, `for i:=1 to Number_Of_Machine loop
1 \2 H6 ]) M4 Q        for j:=1 to Number_Of_Machine loop
                if j<i then
! a# S- z& O3 S" `# P* w1 _0 s& I                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
8 k3 D: ]0 T! }- }( Q9 K                else
6 ~* q4 T* T8 z) x' {8 U' E                        if j=i then
! o  y* j( X+ }) E; U3 x                                D_From_To_Chart[j,i]:=0;
! E( E3 L" |( Q; k  d! {" |                        else
9 S$ g- e. F+ m3 j* u5 M                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
! v1 A  U7 C1 ~) N- ]                                end;
: Y9 }6 T& |# K! W; p                        end;
; B8 g1 \9 e( H) I) J                end;
        next;
next;

end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
* n- e# M5 M2 M$ D; t* t        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
+ e) ?) ^  ]" M  E0 O        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
% x0 B9 C  Z  F: l1 W                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
& q. |! W: {  B% U. M                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
/ q5 M! u# ?3 V# R9 p  x) @8 d! l                        PartsTable[6,Lines]:=j;
                end;
        next;
7 q9 V" e/ z: v, l$ c: \        MachineName :=sprint("M",Rows);
( o# U4 E' Q( {3 q$ @. [  x# z        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]);
, i: s. A0 Z4 p8 N$ b; n        Machine.Name :=MachineName;
4 t7 F4 }. L. [6 ]% ~        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
. O5 P9 W/ a2 r' f5 L" c% v1 Y* n. d( G        Machine.ExitCtrl :=ref(Leave);
/ [8 v. E8 G+ Y5 v* y; ~& U       
        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]);
' j$ G: S* h0 y- v- p+ r                 Buf.Name :=BufName;
, p7 T2 b! j3 E% q" }1 Z        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
. X$ d: T, y& k) K1 I+ Jend;
/ k) @7 ~- v" i: B

五五

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

wudi

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