程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
1 n; ?3 P+ s7 v5 r# V4 Nis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
/ p+ N* {0 a! U# p" @        Machine,Buf:object;
do
4 k$ R: m& N1 f, v# E' {        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
/ X* o% |0 X/ p/ ~2 E1 U                        print "Yes";
, D: q  n4 y3 `; G  E( S                when 32 then
                        print "No";
2 A( }$ `* Q+ C2 f                else
1 ?7 @0 m9 n* W. Z0 _% y                        print "Cancel";
                end;
        EventController.stop;
end;
; H" }# [; i2 l( F9 E4 O7 [5 s5 KPartsTable.delete;
for i:=1 to Number_Of_Machine loop
/ [; R* b5 E" Z$ O        for j:=1 to Number_Of_Machine loop
& @! w$ V( W) v# ?& V9 A9 j: c                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
5 u( v3 i! t: T+ N                        if j=i then
$ \! T6 \6 {& j, H8 u; D1 p  o' {6 a                                D_From_To_Chart[j,i]:=0;
                        else
- K2 w( g, k$ o5 D5 ^                                if D_From_To_Chart[j,i]<=0 then
0 e% k, D- ^( Y4 P                                        messageBox("distence<=0...,",50,13);
5 X" e/ y2 u0 L7 L' V, y! O                                        EventController.stop;
                                end;
                        end;
6 K  h% R5 O$ I: W. G# a# w                end;
        next;
2 ?4 ]. V3 Z1 Z% J' V; U1 rnext;

end;
% `9 N2 G6 U  D& h; R
  J- Q6 ?+ F* O( N0 v7 _' h3 ^    Lines :=0;
- ?; g, W& z2 V# e/ n' M6 S/ k! d        for i:1 to Number_Of_Machine loop
0 Z  ]2 Y; x* P4 p  y# F        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
( e: m6 z8 X" c" G) n        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
: `$ j" @! r- _. E, M                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
( V; v, j& P1 O# M; N5 Z) e                        PartsTable[3,Lines]:=sprint("Parts");
' w! M2 i* R( I$ I2 S$ }- K                        PartsTable[5,Lines]:=Rows;
                        PartsTable[6,Lines]:=j;
                end;
        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]);
  l* m' C/ m" ?, H6 o4 v$ f        Machine.Name :=MachineName;
0 o) p7 [. k1 i6 {0 V+ n2 o        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" P& \0 E  N- n4 f# }  t6 {       
        BufName :=sprint("BF",Rows);
" ?7 j& |% e! M. j! a$ t% F' 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]);
; q  h) F/ z* l1 H                 Buf.Name :=BufName;
        Buf.Capacity :=5000;
" J- P/ W. H; S) L6 Z4 H        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
) z9 c: N; ]1 y6 u8 k* cnext;
6 e- c; k* G& i1 P9 aend;
$ a3 Y3 u7 M& B% u$ g/ h4 r

五五

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

wudi

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