2、 已知道某同学数学成绩X，你能在全班所有同学里里查出他的学号和名次吗？

2、    已知道某同学数学成绩X，你能在全班所有同学里里查出他的学号和名次吗？并判断是否在平均线以上，如果是则输出GOOD，否则输出NO。（假设成绩没有重复）
输入：第一行：X，第二行：N（全班人数），第三行：N个整数，每个同学的数学成绩（按学号1—N）
输出：第一行：该同学的学号。第二行：名次，第三行：GOOD或NO。

program sorter;
var   x, n, i, num, sum, t : integer;
      sc : array [1 .. 50] of integer;
begin
        readln(x);
        readln(n);
        for i := 1 to n do
        begin
             read(sc[i]);
             if x = sc[i] then
                t := i
             else if sc[i] > x then
                  num := num+1;
             sum := sum+sc[i];
        end;
        writeln;
        writeln(t);
        writeln(num+1);
        if x > sum div n then
            writeln('Good')
        else
            writeln('No');
        readln;
        readln;
end.