程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
& D/ m9 g0 r: I; L1 I7 [                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
2 j3 _0 Z  e2 ?' z* Q6 E( u3 R                        print "Yes";
; t: i  a) \" S) |! P* l                when 32 then
                        print "No";
! _+ ]. q/ K4 [. y- ]: h1 j                else
                        print "Cancel";
                end;
* \. F9 n4 a; d, y, i. k        EventController.stop;
end;
PartsTable.delete;
: D( k) f: g. p/ Q1 {for i:=1 to Number_Of_Machine loop
: N9 P' d3 V$ v9 G$ i9 I        for j:=1 to Number_Of_Machine loop
                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];
                        end;
                else
& ]. `: Y( A1 V                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
, C6 r1 }# w. h9 G3 y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
$ F: g4 \( F) u0 r2 ~$ L                        end;
6 t2 I7 ]0 `% x8 f/ {: n- c                end;
        next;
next;
" z1 l/ w$ }5 w6 o- k, X
end;

9 n6 p  [3 y: Z1 E    Lines :=0;
        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
$ o! n/ m/ U7 a1 Z1 J& m                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
/ c- l7 ^- W. d! _& W( E                        PartsTable[3,Lines]:=sprint("Parts");
( }' {  s( ^7 x4 C7 |                        PartsTable[5,Lines]:=Rows;
  ^4 p8 z" M8 f1 j$ [! E                        PartsTable[6,Lines]:=j;
                end;
) }8 z! ^5 o5 ]* ^# A4 M        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]);
. J. n# E- ~' I' F        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
* A5 e' K6 a" t- z9 P! D* E        Machine.label :=sprint("machine_",Rows);
$ B/ s. g9 Y; Z! U7 k. z        Machine.ExitCtrl :=ref(Leave);
       
' c" v, a& @( K  l        BufName :=sprint("BF",Rows);
( R% {  B5 x, d9 @& _) \4 ~        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;
9 O5 ^% X0 h$ F1 z        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
5 w5 W. z8 m8 F4 x" U7 F# U& ynext;
end;
* R2 Y* L, G# ?7 Q; e

五五

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

wudi

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