程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
# l  p' s8 Q3 B7 R1 |4 dis
        i,j,Rows,Lines:integer;
7 H6 D* ~3 Z2 F% d6 M* }. S. z8 s        MachineName,BufName:string;
        Machine,Buf:object;
do
/ B$ K; p- L" I; l' [3 ^% v5 t        if Number_Of_Machine/=D_From_To_Chart.YDim then
6 i; _) {8 ], k' }: O$ @& `- T$ b                inspect messageBox("Number Wrong...,",50,13)
6 H* r; U- f* Q& n- e                when 16 then
                        print "Yes";
  ^7 W3 o- [' c' h+ R2 Q7 F, ~; M                when 32 then
& @) z) l3 y1 P4 e                        print "No";
                else
, l) t" x$ }) h. I                        print "Cancel";
: g% b1 F& b' u2 m$ @1 ^  w' `                end;
' A8 ^1 I' i! g) R        EventController.stop;
0 D8 u$ b; a( p( E) Mend;
PartsTable.delete;
. G. M. |1 o7 F/ q9 \for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
- l  b$ C4 X% ]- J: _! L1 l                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
* _, Q, L9 c0 h8 F/ p) ^/ F$ v                        end;
                else
                        if j=i then
& w$ @/ S* V; f' X& p. X                                D_From_To_Chart[j,i]:=0;
; e/ b) e+ y, h                        else
5 N, R, K$ A- U                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
                end;
1 S) C( l4 }3 M% ~/ L$ O  }# [) W        next;
next;

end;
# r2 T" d& K0 k1 I# W4 q8 h8 n
    Lines :=0;
  h5 H5 L9 Z  r" `5 c        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* H0 }! x4 e5 G, c' i        MachineSequence[2,i]:=Rows;
4 p" z/ `$ @5 ~6 A  w4 }# Y            for j:1 to Number_Of_Machine loop
  O+ b% d4 v* W9 n                    if W_From_To_Chart[j,Rows]>0 then
* K6 ?& [; [$ O7 e                            Lines :=Lines+1;
$ y" t. ^+ @* Q                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) B' }8 q; g& v2 h: O                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
5 \  g. e; i0 @/ q5 z! D                        PartsTable[6,Lines]:=j;
                end;
        next;
" P0 u$ x* V: O% A        MachineName :=sprint("M",Rows);
; U! b  I9 x, y$ r8 K% {5 \% |# w3 {        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]);
# Z: C" |4 M4 v7 [# c1 m        Machine.Name :=MachineName;
9 C# l% M& I: D* J3 b7 u        Machine.ProcTime :=5;
" q! h$ k- m2 q# B5 q8 a        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
! t* V* D  }* T: e- z9 Q       
* A0 k9 ~6 A$ P8 N        BufName :=sprint("BF",Rows);
# Z( G' `! R0 i        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) W! y' s& s/ i$ c                 Buf.Name :=BufName;
  Z8 C5 }. @2 d  D! x: U7 U# ?        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
1 N: T' x/ f7 U  f5 ~next;
end;

五五

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

wudi

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