程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
; B6 K1 O( e  m5 cis
        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
1 c, \: w' g8 a        Machine,Buf:object;
. E7 D- j, B' `& @: v% qdo
" l3 i! t! r+ }% Y        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
; l6 E% K7 V( q9 N                when 32 then
                        print "No";
                else
& C4 Y7 l, I" m9 t                        print "Cancel";
                end;
, d, g  Q5 k! J7 N$ B* R( g        EventController.stop;
+ d+ V+ t# q% H4 a5 tend;
) |( B, t# H& `# g6 w( K2 jPartsTable.delete;
% e1 h5 d3 k! p6 t3 vfor i:=1 to Number_Of_Machine loop
        for j:=1 to Number_Of_Machine loop
6 u8 [$ P1 [2 f1 Z1 L2 A                if j<i then
2 ?) _8 J9 b2 R- t# }: e+ {0 _* Y, v                        if D_From_To_Chart[j,i]<=0 then
. h1 S% l* H  V) d/ L- a5 b: Y                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
. U7 L  L+ k+ @2 d3 Y( m& \                else
                        if j=i then
                                D_From_To_Chart[j,i]:=0;
                        else
, B# c" C- l7 }! i, V8 ^) i                                if D_From_To_Chart[j,i]<=0 then
, J7 X0 F7 a; n8 @5 y                                        messageBox("distence<=0...,",50,13);
                                        EventController.stop;
% i5 z9 A& V5 l4 v5 m% `                                end;
                        end;
) |2 b! _, W# d4 p8 R! b+ L" ^                end;
) d/ w4 d# ]" Z* @        next;
5 ^( Y! v/ c0 [8 }: G: g; Enext;

end;

: D  X1 _  J- D/ `2 [6 t2 o6 `0 b7 C6 y    Lines :=0;
9 x* J3 T/ Q- m  o7 `        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
) J4 R- H: F: n. S) A6 N3 M, c        MachineSequence[2,i]:=Rows;
7 a- I% d0 @4 \7 s% v- e$ O. E9 j            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");
                        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]);
        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
6 q! B5 m6 a+ }        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
       
% }$ B$ Q/ Q/ ^        BufName :=sprint("BF",Rows);
. `9 i# u" K4 ^  s' B        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;
        Buf.ProcTime :=0;
1 N5 d2 d. P2 ^9 ]8 p( A! o8 r        .MaterialFlow.Connector.connect(Buf,Machine);
next;
end;

五五

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

wudi

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