分数线划定

前言
Hello，大家好，帅帅的嘟嘟老师又回来了。今天，嘟嘟老师给大家讲一道水题——分数线划定。
题目描述
世博会志愿者的选拔工作正在 A 市如火如荼的进行。为了选拔最合适的人才，A 市对 所有报名的选手进行了笔试，笔试分数达到面试分数线的选手方可进入面试。面试分数线根 据计划录取人数的150%划定，即如果计划录取m名志愿者，则面试分数线为排名第m*150% （向下取整）名的选手的分数，而最终进入面试的选手为笔试成绩不低于面试分数线的所有 选手。 现在就请你编写程序划定面试分数线，并输出所有进入面试的选手的报名号和笔试成绩。
输入
第一行，两个整数n，m（5 ≤ n ≤ 5000，3 ≤ m ≤ n），中间用一个空格隔开，其 中n 表示报名参加笔试的选手总数，m 表示计划录取的志愿者人数。输入数据保证m*150% 向下取整后小于等于n。
第二行到第 n+1 行，每行包括两个整数，中间用一个空格隔开，分别是选手的报名号k （1000 ≤ k ≤ 9999）和该选手的笔试成绩s（1 ≤ s ≤ 100）。数据保证选手的报名号各 不相同。
输出
第一行，有两个整数，用一个空格隔开，第一个整数表示面试分数线；第二个整数为 进入面试的选手的实际人数。
从第二行开始，每行包含两个整数，中间用一个空格隔开，分别表示进入面试的选手 的报名号和笔试成绩，按照笔试成绩从高到低输出，如果成绩相同，则按报名号由小到大的 顺序输出。
样例输入
6 3
1000 90
3239 88
2390 95
7231 84
1005 95
1001 88
样例输出
88 5
1005 95
2390 95
1000 90
1001 88
3239 88
样例说明
m*150% = 3*150% = 4.5，向下取整后为4。保证4 个人进入面试的分数线为88，但因为88 有重分，所以所有成绩大于等于88 的选手都可以进入面试，故最终有5 个人进入面试。
数据范围限制
如题
思路
此题的难度我想用一首歌表示：你是我的小呀小水题，怎么爱你都不嫌多，我最喜欢刷水题呀，点亮我的心中的水水水水水！！！
太水了！！！直接暴力排序，然后一一跟分数线作比较，然后输出就行了。、
水……
代码

var        a,b:array[1..5000] of longint;        i,j,n,m,l,p:longint;begin        assign(input,'score.in');reset(input);        assign(output,'score.out');rewrite(output);        read(n,m);        m:=trunc(m*1.5);        for i:=1 to n do                read(a[i],b[i]);        for i:=1 to n-1 do        begin                for j:=i+1 to n do                begin                        if ((b[i]<b[j]) or ((b[i]=b[j]) and (a[i]>a[j]))) then                        begin                                p:=a[i];                                a[i]:=a[j];                                a[j]:=p;                                p:=b[i];                                b[i]:=b[j];                                b[j]:=p;                        end;                end;        end;        for i:=1 to n do        begin                if (b[i]<b[m]) then                begin                        l:=i-1;                        break;                end;        end;        writeln(b[m],' ',l);        for i:=1 to l do                writeln(a[i],' ',b[i]);        close(input);        close(output);end.