程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
4 R* D- ?/ k; g. K# H& `        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
. l3 ]- e0 h( j2 ]        Machine,Buf:object;
do
1 v$ g. l4 L' {; G        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 J  w: A9 D0 Q7 C, R7 p4 ~0 \( n                inspect messageBox("Number Wrong...,",50,13)
2 l% C- C+ E2 |, Y$ u( f/ S                when 16 then
  S, S% E( \% ]# A5 Q                        print "Yes";
                when 32 then
3 W4 l2 a. z  a+ H$ z) q                        print "No";
                else
3 k, u: n7 N- \: z                        print "Cancel";
                end;
        EventController.stop;
end;
) r6 l# z# T* F* r# Z" {& l2 p4 RPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
  @2 H4 h6 G' m% X! g                if j<i then
: s% D* ^1 f; J1 Q                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
1 L9 |4 @# r, K0 O8 M                        end;
& t; y) y+ V( K4 w  I" p7 T6 M                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
. [- ]- @8 a& d, n4 F& j% X% Q                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
3 O( s; C7 {8 v7 Z) e9 f                                        EventController.stop;
                                end;
0 c8 v" }, ?  k4 x                        end;
7 `8 U6 l; F# N) k* u6 T                end;
3 O# r  r8 G% h5 r        next;
next;
4 e1 B' D6 g# B# @3 S( ?5 m
end;

: Q$ o3 \. h% [+ T/ }9 n5 g& ~    Lines :=0;
! J9 R: m: Q8 |7 s7 m        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
2 Y# n$ a+ Y' U4 B5 ^        MachineSequence[2,i]:=Rows;
% n! G' W( `# ^9 d( E! N4 u6 O            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
9 F# o' l* u  `% ?                            Lines :=Lines+1;
4 a8 ]2 k8 ]* F3 g2 v                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
. Q+ h* A6 U" ~/ v" D8 J6 y                        PartsTable[5,Lines]:=Rows;
/ ^  \" p6 g' I) P! T0 C+ R                        PartsTable[6,Lines]:=j;
1 O. v: F! `) M                end;
3 [! N0 U8 ^( A! V) c        next;
        MachineName :=sprint("M",Rows);
. n9 U" }# c8 E- c# L        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;
6 m# L" o" W4 Z) z& a& ^% ~+ z        Machine.ProcTime :=5;
! Y8 B& p* @/ C( s6 |" n! c        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
9 i& ?6 S9 G' W/ d# ^; ~+ q8 d       
        BufName :=sprint("BF",Rows);
5 l! Y2 n- T2 }/ ?# ?# Y        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]);
1 A( O! I4 b# A2 L3 b                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
- F1 x, w4 U3 i2 N* l8 z: \! P        .MaterialFlow.Connector.connect(Buf,Machine);
" }" m. T( u$ Mnext;
end;
8 U0 D; N  o. s8 v

五五

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

wudi

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