排座椅

前言
胖嘟嘟的刘嘟嘟老师来了！今天
题目描述
上课的时候总有一些同学和前后左右的人交头接耳，这是令小学班主任十分头疼的一件事情。不过，班主任小雪发现了一些有趣的现象，当同学们的座次确定下来之后，只有有限的D对同学上课时会交头接耳。同学们在教室中坐成了M行N列，坐在第i行第j列的同学的位置是（i，j），为了方便同学们进出，在教室中设置了K条横向的通道，L条纵向的通道。于是，聪明的小雪想到了一个办法，或许可以减少上课时学生交头接耳的问题：她打算重新摆放桌椅，改变同学们桌椅间通道的位置，因为如果一条通道隔开了两个会交头接耳的同学，那么他们就不会交头接耳了。
请你帮忙给小雪编写一个程序，给出最好的通道划分方案。在该方案下，上课时交头接耳的学生对数最少。
输入

输出
输出文件seat.out共两行。
第一行包含K个整数，a1a2……aK，表示第a1行和a1+1行之间、第a2行和第a2+1行之间、…、第aK行和第aK+1行之间要开辟通道，其中ai< ai+1，每两个整数之间用空格隔开（行尾没有空格）。
第二行包含L个整数，b1b2……bk，表示第b1列和b1+1列之间、第b2列和第b2+1列之间、…、第bL列和第bL+1列之间要开辟通道，其中bi< bi+1，每两个整数之间用空格隔开（行尾没有空格）。
样例输入
4 5 1 2 3
4 2 4 3
2 3 3 3
2 5 2 4
样例输出
2
2 4
样例解释

思路
很搞事情的一道题。暴力模拟搞事情，拿刀直接干。哪行那列有讲话的，直接把他俩暴力分开就行了。h数组=hang行，记录行，l=lie列，记录列。
代码

var
        a,b,h,l:array[1..2000] of longint;
        i,j,k,n,m,d,o,p,xi,yi,pi,qi,dd,gg,max:longint;
begin
        assign(input,'seat.in');reset(input);
        assign(output,'seat.out');rewrite(output);
        readln(m,n,k,o,d);
        for i:=1 to d do
        begin
                readln(xi,yi,pi,qi);
                if (yi>qi) then
                begin
                        p:=yi;
                        yi:=qi;
                        qi:=p;
                end;
                if (xi>pi) then
                begin
                        p:=xi;
                        xi:=pi;
                        pi:=p;
                end;
                if (xi=pi) then
                begin
                        for j:=1 to n do
                                if (j=yi) then inc(l[yi]);
                end
                else
                begin
                        for j:=1 to m do
                                if (j=xi) then inc(h[xi]);
                end;
        end;
        j:=0;
        repeat
                inc(j);
                max:=0;
                for i:=1 to n do
                begin
                        if (l[i]>max) then
                        begin
                                dd:=i;
                                max:=l[i];
                        end;
                end;
                l[dd]:=0;
                a[dd]:=1;
        until (o=j);
        j:=0;
        repeat
                inc(j);
                max:=0;
                for i:=1 to n do
                begin
                        if (h[i]>max) then
                        begin
                                gg:=i;
                                max:=h[i];
                        end;
                end;
                h[gg]:=0;
                b[gg]:=1;
        until (k=j);
        for i:=1 to n do
                if (b[i]=1) then write(i,' ');
        writeln;
        for i:=1 to m do
                if (a[i]=1) then write(i,' ');
        writeln;
        close(input);
        close(output);
end.