program Project2;

 {$APPTYPE CONSOLE}

 uses

   SysUtils;

 const N=;M=;

 type

 date=record

    day:..;

    month:..;

    year:..;

    end;

 student=record

     number:string[];

     name:string[];

     birthday:date;

     score:array[..M]of real;

     average:real;

     end;

 var

    stu:array[..N] of student;

   counter,s,i,j,k:integer;

    t:real;

    a:student;

    temp:student;

    ch:string[];

 begin

   { TODO -oUser -cConsole Main : Insert code here }

    for k:= to N do

    begin

    with a,birthday do

      begin

      write(k:,'number:');readln(number);

      write(k:,'name:');readln(name);

       write(k:,'day:');readln(day);

       write(k:,'month:');readln(month);

       write(k:,'year:');readln(year);

        t:=;

    for i:=  to M do

      begin

        write('score[',i,']=');read(a.score[i]);

        t:=t+a.score[i]

        end;

        readln;

        stu[k]:=a;

        stu[k].average:=t/M;

        end;

        end;

      for j:= to N do

      for k:= to N-j do

        if stu[k].average<stu[k+].average then

          begin

            temp:=stu[k];

             stu[j]:=stu[k+];

             stu[k+]:=temp;

             end;

        Writeln('按平均分从高到低排');

        writeln('----------------------------------------------------------');

        write('num','':,'name','':,'mm/dd/yy':,'':);

        writeln('chinese','':,'math','':,'english','':,'average');

        writeln('-----------------------------------------------------------');

        for j:= to N do

         with stu[j],birthday do

         begin

          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');

          for i:= 1to M do write(score[i]::);

          writeln(stu[j].average::)

           end;

          for j:= to N do

             for k:= to N-j do

         if (stu[k].name)>(stu[k+].name) then

          begin

            temp:=stu[k];

             stu[j]:=stu[k+];

             stu[k+]:=temp;

             end;

          Writeln('按学生姓名的字典顺序排');

        writeln('----------------------------------------------------------');

        write('num','':,'name','':,'mm/dd/yy':,'':);

        writeln('chinese','':,'math','':,'english','':,'average');

        writeln('-----------------------------------------------------------');

           for j:= to N do

         with stu[j],birthday do

         begin

          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');

          for i:= 1to M do write(score[i]::);

          writeln(stu[j].average::)

           end;

          writeln('按姓名查找学生信息');

          readln(ch);

          s:=;

           for j:= to N do

         if (stu[j].name)=ch then

          begin

           writeln('----------------------------------------------------------');

            write('num','':,'name','':,'mm/dd/yy':,'':);

            writeln('chinese','':,'math','':,'english','':,'average');

           writeln('-----------------------------------------------------------');

         with stu[j],birthday do

         begin

          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');

          for i:= 1to M do write(score[i]::);

          writeln(stu[j].average::)

           end;

          end else  s:=s+;

         if s=N then Writeln('没有找到该学生信息');

         writeln('将数学不及格的学生信息输出，并统计数学成绩不及格人数');

         counter:=;

           for j:= to N do

         if (stu[j].score[])<  then

         begin

           counter:=counter+;

           writeln('----------------------------------------------------------');

          write('num','':,'name','':,'mm/dd/yy':,'':);

           writeln('chinese','':,'math','':,'english','':,'average');

          writeln('-----------------------------------------------------------');

           with stu[j],birthday do

           begin

          write(number:,name:,'':,month:,'/',day:,'/',year:,' ');

          for i:= 1to M do write(score[i]::);

          writeln(stu[j].average::)

           end;

          end;

           writeln('数学不及格人数：',counter);

          readln;

 end.