程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
8 U; Q+ R4 j- v# C$ Ris
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
6 _6 _; l9 y# e# s) s        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
6 S* |6 J9 m* K! U! A8 {                when 32 then
                        print "No";
                else
7 o2 @# ?" w/ \0 m& E  N. f! t, H                        print "Cancel";
6 W8 b1 w% h. s                end;
        EventController.stop;
end;
$ z5 b3 ^* P: l* lPartsTable.delete;
9 ]& R; i1 [' N4 E" u' Hfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
) `/ \1 `* X# Q/ X" ]                if j<i then
, G. x7 P, y- \: ]. M" f                        if D_From_To_Chart[j,i]<=0 then
# D& h7 _/ @) w                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
6 h1 r7 @: k) P                        end;
                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
) Y. @7 T, g5 t- x3 W                        else
% W/ p/ V4 I1 d( s* i" s                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
% f) Y! ~) O+ P) c                                        EventController.stop;
" |/ L7 J7 S  p2 F                                end;
                        end;
2 O, F; m9 y8 k: X6 J. F# Y* T                end;
  |" p! z; b' b) X+ h        next;
next;

end;

7 @7 r  M2 p. v, j- U    Lines :=0;
        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
        MachineSequence[2,i]:=Rows;
+ d$ `9 O. h: K            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
. D1 h6 ?0 Y" w9 \( l: P/ D% H                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
  G) N. J1 F) I' s- T* j" W% @                end;
        next;
" i% Z8 h" k" ]        MachineName :=sprint("M",Rows);
; m+ n. m* w7 _; N: J        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;
. T+ E; S- w  W2 T        Machine.ProcTime :=5;
( z, ]5 w, m& P        Machine.label :=sprint("machine_",Rows);
. U$ l6 C9 J9 e+ D        Machine.ExitCtrl :=ref(Leave);
       
4 x- ]* H: S6 r! {* k5 g' j        BufName :=sprint("BF",Rows);
        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]);
' X3 A/ T7 B$ n- M                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
" X8 q* o" b) g! j        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
next;
& _! _2 \8 ?5 B" p8 K4 @0 Jend;
+ s7 O) s6 y- _* r$ t* y" M

五五

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

wudi

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