程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
( L. \% A) o. ]6 f1 yis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
0 |9 {3 i- ^; L( |" q        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
# ^8 @3 m  c7 U" x, u                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
0 r: \7 j' I7 S$ J$ w+ {8 e                        print "Yes";
                when 32 then
                        print "No";
- H$ _" m9 Z' w/ }                else
                        print "Cancel";
. z' j( [; {2 J" U# ~0 Z. r$ A8 M                end;
        EventController.stop;
. V" N! a6 X: W' `end;
PartsTable.delete;
+ d2 n1 q) g8 z, Q4 a7 X' o/ Nfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
1 d( J& x, g+ }! y" w' s- |                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];
" g4 q9 e+ m, a4 Z/ M                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
' D6 I& @8 t; }7 Z2 b                        else
0 M1 y  l- K1 x: M9 E" ?3 k                                if D_From_To_Chart[j,i]<=0 then
$ [8 U, N4 N% a* ]2 ^6 a                                        messageBox("distence<=0...,",50,13);
) |9 y  w' z2 P! y, U9 S- ?1 ~                                        EventController.stop;
                                end;
                        end;
                end;
# s8 H9 s" W% `1 D) ^, G! {. B/ U7 F        next;
/ j* n9 O9 n8 H% Q: ^8 E; ^next;
! q3 Q5 H6 \* o' T6 d. `; J
end;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
' h; q) m4 J: l5 ]6 \7 F7 R        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
$ m( n0 b6 H. [2 s- [        MachineSequence[2,i]:=Rows;
4 \" E+ S) b: [9 h5 r, d1 h            for j:1 to Number_Of_Machine loop
& |# ?. t( c) C$ q$ ^                    if W_From_To_Chart[j,Rows]>0 then
& D% N' a' r' a, G& S$ B/ U                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
6 ?- C* {9 I" @5 _                        PartsTable[6,Lines]:=j;
0 v2 ^2 S8 u) C+ K% [9 S' J                end;
; [/ i+ \- F! P* x' a        next;
        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]);
4 S8 N) h+ t  C: f        Machine.Name :=MachineName;
" [& t8 [4 f" J) F7 x/ {- F        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        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]);
  u$ x; G0 d4 @# C                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
0 I6 K- O5 G& M8 a( O3 d( X        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
( u$ s) S" Z! g7 onext;
  B! J+ d0 A9 g( [. X% }end;

五五

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

wudi

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