程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
) c' A& }1 z5 w: Z2 j: m; S        MachineName,BufName:string;
# |, v+ @, q; i4 n& Z, ^        Machine,Buf:object;
" J0 R: Y! Q* Y$ t4 `: ~6 X3 |; bdo
! P" [1 t  i/ X- D        if Number_Of_Machine/=D_From_To_Chart.YDim then
4 e% ~/ ]7 r# i& `0 n                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
                else
0 y1 ?$ _) v/ B  l6 u                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
* S5 _5 C  Y; X+ }for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
: c2 O% D' X: |                if j<i then
, p  @  o- e& ?, K% h/ g                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
% y8 D( }1 T% i' o! s% ]8 o                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
, T; b  R2 o4 m5 B% H- k3 J2 [                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
3 b4 O, q) M$ C                        end;
4 g( Y) R0 d1 Y* D" N- j* S7 c; }                end;
        next;
next;
4 I0 S) a" q" |/ y3 y
" x4 }% q0 R! h3 \9 ~2 _end;
& i! |/ s+ E% @
    Lines :=0;
        for i:1 to Number_Of_Machine loop
6 S6 s9 H5 W# E- C1 p/ q8 l, n9 m        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
% \* |) F9 S1 X5 r! I        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
7 {7 o" u- X; `. c                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
* E, m/ G+ R# B/ o                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
; R( [6 e; H2 E$ c- ~, R& k5 a  t! Q                        PartsTable[5,Lines]:=Rows;
% A1 ]3 \1 \1 L! Q  i                        PartsTable[6,Lines]:=j;
, E. B! d) q$ B+ d6 S                end;
8 X% k# U" r1 M$ B  I' m. h        next;
8 ~/ t* M  c! P, l, {        MachineName :=sprint("M",Rows);
$ ]3 f: I: 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;
) W' U1 [; L1 X        Machine.ProcTime :=5;
  r. Y5 [4 v3 G$ }) ]. [        Machine.label :=sprint("machine_",Rows);
) D1 c2 M- l. x        Machine.ExitCtrl :=ref(Leave);
       
# n0 B1 n4 M! d5 i        BufName :=sprint("BF",Rows);
( V% J$ f8 Y5 B, ^" f: ]# y/ v3 J9 I) T        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 q6 x7 ~* P( {8 _                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
. ^: @2 z- b  `8 s& a. ?/ d        Buf.ProcTime :=0;
1 o1 @. q( D. R1 R- }( Y        .MaterialFlow.Connector.connect(Buf,Machine);
0 ]. |% D  r$ c" nnext;
7 \5 ]; R# |- m& M, t5 \7 W; vend;
2 S2 n: P. I; W9 R. o" f

五五

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

wudi

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