程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
; G* I$ n1 d8 o8 g6 W# b% B% {8 k        MachineName,BufName:string;
        Machine,Buf:object;
0 U8 A2 L* s& ]3 J4 ?! edo
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
0 M6 u8 @$ r5 [& z3 D                        print "Yes";
) ?& e6 z: J! A' z9 L                when 32 then
" u7 D; N2 ?) {1 g) l7 t5 `                        print "No";
! b0 j/ D! D* `+ }7 ^9 u* r) G                else
. D8 h( k7 Y0 f2 L1 D                        print "Cancel";
0 ]0 e6 Y0 k0 F' I                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
* u$ P" a# `! h                if j<i then
8 y, _( f9 h/ D. S1 N                        if D_From_To_Chart[j,i]<=0 then
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
' Z4 M3 D* j3 Q7 H$ W4 e                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% g8 D7 Z4 v3 ~                                end;
, U7 J4 M$ x8 w                        end;
5 O- p6 J1 f( A0 l                end;
2 d: p  b; v' \" R        next;
0 e0 d$ k- ?" v" j% znext;

: [" `/ C1 l3 X; pend;

- w8 `7 C" o; w9 r5 K8 O    Lines :=0;
" b+ }+ j& ^/ T; Z  J$ x% s) O' A        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
7 I$ F! ]/ ]7 w# {( W                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
9 S8 X+ U) N* h  J: K3 f+ k                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
2 I- w" D; }& B- ^* c1 I, ]  V                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
) f0 w$ ?7 P1 a; P4 {" }2 C) Q% A        next;
; ]9 j3 b! b6 z" ^+ @  d        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]);
$ U: K. D' t3 W/ Z" J  ]        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
  e$ k1 ~, ^3 v, y0 Z9 L5 z        Machine.ExitCtrl :=ref(Leave);
; H3 {# @, z1 N: q( Y' T       
        BufName :=sprint("BF",Rows);
+ X' o# a& O$ l: U; b        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;
        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
$ A8 s# P- q) X& A# x, l        .MaterialFlow.Connector.connect(Buf,Machine);
8 x9 }  k5 `! vnext;
2 U- x7 Z5 U& B) Z& ^end;

五五

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

wudi

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