程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
& @$ w: S) p1 }; }0 X: D        MachineName,BufName:string;
# {$ K1 a# r( Z, w- B5 \. X7 e( L        Machine,Buf:object;
7 D, P6 [  y# ^$ B  s/ Vdo
5 P$ u/ ?1 G2 }' [3 Z: K# s        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
: s9 z7 A& |0 ^. D% X, i                        print "Yes";
( P* J5 W# |3 O3 U                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
) G: l6 C/ v8 M+ \end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
" S5 g* b6 n0 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];
& c4 E! M6 b8 o# \' r                        end;
  S+ y# {4 H; d                else
0 ^% ^# M7 A' }7 h0 {& H                        if j=i then
4 F9 @3 m) `" u0 m                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
) ~/ l7 B1 ]) S7 e( [0 m" [# `                                        EventController.stop;
9 A) v( s6 T9 b! Y                                end;
1 B$ w. L1 g/ ^$ b& c1 G                        end;
8 N, G2 ]6 N& ]; H/ t( s$ m& S                end;
" f; {$ i2 j9 }4 d0 K2 ?1 P2 H$ x) o        next;
next;
3 b; _; `( N7 G9 K; D
. e2 R  G# O7 R6 Gend;

6 g8 w+ g7 U& x' S; Z( I' O; }    Lines :=0;
& x; _; [' V- B! c        for i:1 to Number_Of_Machine loop
' d" y/ i: L/ _' d# o+ H: a        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
$ S, F1 h: P" l5 T' [            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
" L& I5 l) h8 g" r                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
. A2 b* l7 a, w2 v3 P% ?* W$ S                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
) N4 U$ g: y7 {8 f  `. ?                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
* j! U: I" j9 j* p7 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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
9 D( n5 L0 w7 @        Machine.label :=sprint("machine_",Rows);
% H2 S/ a& `* v" ]) U# ]# @2 B        Machine.ExitCtrl :=ref(Leave);
  C  u3 t9 Z  G/ _4 ?       
7 U: O! \- j1 e; ]* q5 o2 d* ^  D: f        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;
& {, B& L3 L' ]( A8 _+ T$ d        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
( N( \! Q  G. g: a, C9 G, ^next;
end;
0 r, X! u0 M8 d9 B) Q! l6 X

五五

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

wudi

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