程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
0 T5 @/ B8 T$ A5 c; {8 ?" t        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
* G1 T5 Q& T8 m2 D6 x7 y9 C" P        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
- w6 T' N# [; ^$ }3 }  \                inspect messageBox("Number Wrong...,",50,13)
( ?. E6 @; i9 \0 K                when 16 then
                        print "Yes";
                when 32 then
                        print "No";
1 [, v& {/ N6 U$ W% ~7 f                else
* r: A+ K$ ~" D( C9 f0 b) |                        print "Cancel";
) Z) p6 m  g7 Z' M/ }                end;
  b1 S# ?# I% I1 u0 R        EventController.stop;
end;
' P% {# `* G! g0 [4 a; qPartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
: u9 Q6 t) O: e3 E: J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
' V1 r3 Z7 j; }' `; T                        end;
                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);
* c( R, `: s) v. J                                        EventController.stop;
$ b/ C" A! Q* q) @5 P1 W                                end;
                        end;
                end;
        next;
! T. ?3 g- p5 d0 mnext;
0 h1 w0 w- w7 Q0 P; h
end;
6 H& V: @$ v$ Z, O( J1 k* g
0 j$ Y# q* G* O* U5 U/ a    Lines :=0;
        for i:1 to Number_Of_Machine loop
/ @+ p/ l6 [3 @. D5 j" p        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
! |9 z+ m8 T/ T            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
1 _& H  R8 p% n3 ]5 D3 i( |                            Lines :=Lines+1;
: V* M* ]+ |% P  T                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
+ r5 R5 ?: K( z" Q. o                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        next;
        MachineName :=sprint("M",Rows);
9 S5 r! `6 f& o( Z: U' k' z        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]);
4 s$ C% p5 D$ ^! B        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
% X7 N3 B1 a1 D  X! Y2 n0 }5 a" o! ?        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
, h; Y1 I' K" }4 x; y        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]);
" a1 N+ \' n. s6 O                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
$ w+ i6 m7 X4 c+ r, I4 d        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
+ p. q# G8 t  A$ p# F2 c, e) I1 Unext;
  ?$ l6 ]' P5 f& ^/ Hend;

五五

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

wudi

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