程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
2 ~: D4 J1 {  r" E3 t: \0 j8 F$ I        MachineName,BufName:string;
        Machine,Buf:object;
do
% U' L* l6 K. r' u        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
9 O5 k+ J# o& [2 Z                when 16 then
; J4 ~2 u5 v8 c                        print "Yes";
& X' x: f4 a7 N, e' u* x2 I                when 32 then
3 b8 [4 Q# E6 [, Y                        print "No";
9 r7 E; U" L" p0 B! q0 U/ J                else
+ v7 o( b2 x4 M, p) U+ X                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
+ `" O) I* g7 R# ^3 ^for i:=1 to Number_Of_Machine loop
: Y, ]7 c1 D; K/ o; J        for j:=1 to Number_Of_Machine loop
                if j<i then
  a: U7 _5 v: p& V                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
/ ?3 a" s7 G3 ]5 U                        end;
2 M" Z5 X1 F* ]2 u9 D! {                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
- i, \5 n. g" ?' P, K                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
        next;
next;
+ r+ q% {4 O7 g! d  X( B
end;

    Lines :=0;
! }/ q* m# Q8 {+ x        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
: q. g8 @- g, R; {9 f        MachineSequence[2,i]:=Rows;
% r  `6 J8 v& h6 f            for j:1 to Number_Of_Machine loop
1 A7 p, @* o2 z& v# r) a. A                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
' ]1 R% i6 T& u' i" O                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
  I+ B" U+ T9 I- N9 b; a, C- O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
% N& N& O5 T% o8 W8 m                        PartsTable[6,Lines]:=j;
                end;
        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]);
        Machine.Name :=MachineName;
; H; S# U  \- ~        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]);
. f+ m. z1 q" p; L: X                 Buf.Name :=BufName;
+ I& ^' C1 ]  m1 H8 D/ X6 b        Buf.Capacity :=5000;
: ]  y* ?1 I+ i5 ?0 H! k# L" ~$ H' P        Buf.ProcTime :=0;
. Z! X/ m+ t5 L6 t! u9 _7 X        .MaterialFlow.Connector.connect(Buf,Machine);
next;
. d+ j4 Q" X4 z. ]end;
. r6 p3 ]& J' X$ e" K

五五

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

wudi

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