求子程序编译问题

                                              if ((g[j].x1=g[k].x1)and(g[j].y1=g[k].y1))
                                              or ((g[j].x2=g[k].x1)and(g[j].y2=g[k].y1))
                                              or ((g[j].x1=g[k].x2)and(g[j].y1=g[k].y2))
                                              or ((g[j].x2=g[k].x2)and(g[j].y2=g[k].y2))
                                              then begin
                                                     k:=j;
                                                     u[k]:=false;
                                                     j:=0;
                                                   end;
                                            end;
                                          if min(g[k].y1,g[k].y2)=0 then inc(ans);
                                        end;
   writeln(ans);
   filec;
end.


                                              if ((g[j].x1=g[k].x1)and(g[j].y1=g[k].y1))
                                              or ((g[j].x2=g[k].x1)and(g[j].y2=g[k].y1))
                                              or ((g[j].x1=g[k].x2)and(g[j].y1=g[k].y2))
                                              or ((g[j].x2=g[k].x2)and(g[j].y2=g[k].y2))
                                              then begin
                                                     k:=j;
                                                     u[k]:=false;
                                                     j:=0;
                                                   end;
                                            end;
                                          if min(g[k].y1,g[k].y2)=0 then inc(ans);
                                        end;
   writeln(ans);
end;
begin
   fileo;
   init;
   main;
   filec;
end .