程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
        i,j,Rows,Lines:integer;
5 V, h9 B) f4 w        MachineName,BufName:string;
        Machine,Buf:object;
do
1 R2 @* z6 y7 T        if Number_Of_Machine/=D_From_To_Chart.YDim then
# `4 X8 h/ b* |9 N4 _- t                inspect messageBox("Number Wrong...,",50,13)
- T% O. n+ W0 L2 k6 h( e4 d                when 16 then
6 G8 S) y- Z( _3 K                        print "Yes";
5 h- }4 H. |! F. b! Z7 i% u4 o5 m8 A* c: H                when 32 then
                        print "No";
                else
                        print "Cancel";
                end;
        EventController.stop;
end;
2 m1 b# d# \+ N# S. I* nPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
9 ~1 d" I' m" \: [+ @                        if D_From_To_Chart[j,i]<=0 then
1 {9 c# k/ y* }  v                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 B6 A$ e. Z/ [: m1 m: V% T3 B- T                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
# D  t! T& M+ }- C# p                        else
                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
  z1 B4 p; _$ T7 h: w                        end;
4 ^" S& i7 v8 O. A& x" p# w8 x& g6 ~                end;
        next;
+ G; I! Y+ L( Y, e( i1 ]4 vnext;

end;

    Lines :=0;
5 t* Q7 {: d0 C3 L7 e' }        for i:1 to Number_Of_Machine loop
# z' E$ P8 @* E/ p+ F        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
$ \& H, @9 ~7 H" h0 p: d, [" ]            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
5 ?! ?7 z; [4 v% d* ?; E& W9 u! Z3 V                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
: l4 t. B7 V$ @9 l4 q                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
3 V+ D3 X7 N9 f. v! F7 H        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;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
4 d- e& ], Q# e( ~8 p8 f        BufName :=sprint("BF",Rows);
7 c- P1 H/ a$ j        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]);
! l. w3 |2 D1 [4 d  i. L4 S                 Buf.Name :=BufName;
$ N7 F4 Q! f; s& g' C6 T; X9 O        Buf.Capacity :=5000;
        Buf.ProcTime :=0;
) p* L; }3 ^' g        .MaterialFlow.Connector.connect(Buf,Machine);
8 u% ^7 y3 C* {( o- r- tnext;
* D0 X  R# K& w. U/ L. @end;
) `; f; F+ e: g" c

五五

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

wudi

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