程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
5 ~' E5 v4 O$ a& s+ E        i,j,Rows,Lines:integer;
        MachineName,BufName:string;
; S0 g, O# Q* @6 C8 @, w        Machine,Buf:object;
: ^  |% @' Q4 i) N! G8 s+ edo
" m3 T$ l' F1 Z% O: _, H1 [6 j        if Number_Of_Machine/=D_From_To_Chart.YDim then
; y" B6 E$ c- k! L                inspect messageBox("Number Wrong...,",50,13)
4 H6 s7 H" i5 h) Y! r. w( B4 @                when 16 then
8 U* g! y* Q* M9 ]! a) J                        print "Yes";
1 P1 J1 b/ ?7 G' z8 H% {" F& C                when 32 then
                        print "No";
, _- j+ P9 r1 q8 @5 q5 S) T- ]                else
9 A0 G& D8 r2 m" Q* S$ R4 Q$ _" I                        print "Cancel";
                end;
        EventController.stop;
end;
6 I+ g0 z$ h" D1 }! R7 c9 \+ dPartsTable.delete;
1 |/ U. U& R2 Ufor 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
                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
4 }. Q, ]5 F: j1 ]/ Y                        end;
4 q) n3 S" ?. i6 V- _3 ^                else
                        if j=i then
# r' p( K/ ]3 c0 Q                                D_From_To_Chart[j,i]:=0;
% F" V9 K& e' l# @                        else
8 g' H  M$ E+ I; n$ t, p                                if D_From_To_Chart[j,i]<=0 then
                                        messageBox("distence<=0...,",50,13);
& H$ A/ z& G5 ?/ @& T. N                                        EventController.stop;
                                end;
/ q$ _! V2 b6 I) W/ G                        end;
0 P- R2 f! e2 e) b' M& F2 f+ c                end;
        next;
next;
9 a, |+ w9 m" ?* I/ L
end;
9 u0 X9 t% N8 w, `/ I  P% N7 ~
* }3 V7 v+ d& I. n. h    Lines :=0;
$ b: E( J8 O0 ]. }- s% J        for i:1 to Number_Of_Machine loop
        Rows :=str_to_num(Omit(MachineSequence[1,i],1,1));
* v6 c8 n8 {6 l& f/ V        MachineSequence[2,i]:=Rows;
            for j:1 to Number_Of_Machine loop
                    if W_From_To_Chart[j,Rows]>0 then
3 J% b/ ^- ?" D& `& R- _' b7 l                            Lines :=Lines+1;
                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
; C' M  K7 @2 v: D6 D  \5 ?* x                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
% d# J/ c4 t) L8 w& T" h% i                        PartsTable[5,Lines]:=Rows;
' r8 L! z) R: x; X, }  j; Q+ I                        PartsTable[6,Lines]:=j;
5 s7 K6 [* g% x! [+ ?7 [                end;
. p" y' k+ e, j: S" C2 q        next;
" h# \! y! Q* ?( @8 ]        MachineName :=sprint("M",Rows);
2 E( f$ H8 W" q6 C3 E        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]);
$ U# w( _* H" u6 X2 Y        Machine.Name :=MachineName;
        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
2 Q9 q3 L( Q. K, Y1 h+ L        Machine.ExitCtrl :=ref(Leave);
" B( @6 M7 p. ]. C3 Y" y: {1 m; O9 |       
        BufName :=sprint("BF",Rows);
3 q/ j' @* Z* P/ d        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;
        .MaterialFlow.Connector.connect(Buf,Machine);
- h- ]0 j6 Y4 znext;
end;
0 |( V  r! J9 A1 @# [5 Z

五五

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

wudi

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