程序问题

wudi

以下程序运行时显示有语法错误，我是新手，求帮忙看看哪里有语法错误
is
5 E' X# ~6 [  h4 E6 i1 l        i,j,Rows,Lines:integer;
' h# \, C& ^) p; [" ?        MachineName,BufName:string;
        Machine,Buf:object;
do
  t) a: r8 z3 G        if Number_Of_Machine/=D_From_To_Chart.YDim then
                inspect messageBox("Number Wrong...,",50,13)
                when 16 then
                        print "Yes";
                when 32 then
% v$ j+ ~% `" G9 s                        print "No";
" A% {. L! r4 D+ Q                else
                        print "Cancel";
# G0 M7 S6 ^. F: N9 Z* h7 l) ?: l                end;
        EventController.stop;
end;
8 B. e; _* f: f: }; cPartsTable.delete;
for i:=1 to Number_Of_Machine loop
) ~  E/ B* ~4 T" s$ ~6 |        for j:=1 to Number_Of_Machine loop
/ t+ O1 i! F1 o5 F4 f. B                if j<i then
                        if D_From_To_Chart[j,i]<=0 then
' ]! x) ~4 h& e; T/ l2 ^' V  z# k                                D_From_To_Chart[j,i]:=D_From_To_Chart[i,j];
                        end;
6 Q1 N& A) ?+ m7 U$ R                else
2 D5 P7 |0 G9 \( E9 @" ^* j                        if j=i then
4 {: g# N0 K* T; H! F                                D_From_To_Chart[j,i]:=0;
                        else
                                if D_From_To_Chart[j,i]<=0 then
& F9 R& M% _, Z% S0 j5 J                                        messageBox("distence<=0...,",50,13);
) ~3 E' ^" }# z4 k( W                                        EventController.stop;
                                end;
7 ^1 f6 M1 t+ v4 ~+ L                        end;
: I6 [# H5 |; Y  L% ~* V                end;
        next;
/ v; |! }7 f2 W/ O3 ^. A, U! @6 unext;
  J% p5 u* m8 m: l/ v2 Z: T$ h
) m* B& q; P! S, ~! f2 G# n! x  a& rend;

    Lines :=0;
        for i:1 to Number_Of_Machine loop
0 \) s$ T* Z' ?        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;
9 Q  w- k/ y+ ^% G. |$ @                        PartsTable[1,Lines]:=str_to_obj(sprint(".",location.name,".Parts"));
) r3 H% _3 G# ]* e% i  [; o: c                        PartsTable[2,Lines]:=W_From_To_Chart[j,Rows];
                        PartsTable[3,Lines]:=sprint("Parts");
                        PartsTable[5,Lines]:=Rows;
+ b9 w9 v% M6 [- N/ v- o3 P6 ]                        PartsTable[6,Lines]:=j;
5 X; o) A8 h! N4 o# p- t                end;
        next;
% I" Q% \4 c! u        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;
. t2 x  i8 m8 K- R9 j# C$ U        Machine.ProcTime :=5;
        Machine.label :=sprint("machine_",Rows);
        Machine.ExitCtrl :=ref(Leave);
" b/ X  p1 K2 V$ m4 E) z5 U3 t       
1 S3 e: y' L  f* r4 Q) S1 f" r        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]);
                Buf.Name :=BufName;
        Buf.Capacity :=5000;
3 _6 u' ]* ^+ `. @3 Y        Buf.ProcTime :=0;
        .MaterialFlow.Connector.connect(Buf,Machine);
7 c  r8 |; l, C2 l& c& j9 onext;
, k4 r+ g% q" Z* xend;
9 M5 r' K) f" j5 C/ J9 R- |

五五

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

wudi

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