程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
5 D- t) R# }0 @; Jis
        i,j,Rows,Lines:integer;
* c4 B' d3 K* B: i' o. S5 i        MachineName,BufName:string;
8 g* H5 P2 p4 {; c( J        Machine,Buf:object;
do
        if Number_Of_Machine/=D_From_To_Chart.YDim then
5 O+ _3 o2 T  D* o2 D, C) A$ y                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
7 k3 c& l) O5 k' g0 x% t+ X                when 32 then
                        print "No";
; a: U" ?" N- e& f                else
                        print "Cancel";
                end;
        EventController.stop;
end;
PartsTable.delete;
for i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
                if j<i then
7 g/ A: r) }7 z  ]/ x# g0 W, Z                        if D_From_To_Chart[j,i]<=0 then
. Y/ ?" T: L) u3 ]! k! S' k: J                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
. y# F9 r  G7 [. k6 b9 T5 M! _                        end;
+ ~9 B' u( O9 Z                else
                        if j=i then
" V7 ]9 U6 A4 [, }. ^                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
( ]2 P/ n7 r: F8 {% ^9 s% q                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
                                end;
                        end;
, I1 T- w" j0 g2 R2 b+ {$ ]                end;
        next;
3 ]0 \1 r, }* b( M+ ]; O$ M1 Inext;
) Z5 v+ _+ H4 K
end;

7 e' d, a' ^. N( m# _    Lines :=0;
( L% c. r7 T# w, ]$ L+ w0 K, C. |        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
                            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");
5 z8 A% Y( b' L1 X+ \                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
6 w0 L# W. D7 k, \0 y                end;
        next;
0 U2 L# s$ }0 l3 @, z- I( f        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]);
- ?6 _' U$ l% B6 A6 }' o$ I        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
, K1 r3 }  `7 @  n! p9 {        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
        BufName :=sprint("BF",Rows);
3 q: F8 ]) R7 P  o+ b- I4 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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
0 ?* Q8 @$ n$ O1 x        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
" s* a& q2 R/ s9 L* ]next;
! v0 j% @8 T1 H8 z; Nend;

五五

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

wudi

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