Написать программу, которая печатает список студентов, желающих прослушать дисциплину Х

type
  predmets=(Matem,Pfiz,Him,Istor,Relig);
  tstd=record
    Name:string[100];
    Group:String[20];
    predmet:array[predmets] of boolean;
    srbal:real;
  end;
const
  infilename='disciple.txt';
  maxstudents=100;
  prednames:array[predmets] of string=('Математика','Физика','Химия','История','Религоведение');
  count:word=1;
  choisecount:byte=0;
var
  f:text;
  std:array[1..maxstudents] of tstd;
  tempstd:tstd;
  p:integer;
  sign:boolean;
  s:string;
  choise:byte;
begin
  writeln('Выберите одну из дисциплин:');
  for p:=1 to 5 do writeln(p,' - ',prednames[predmets(p-1)]);
  readln(choise);
  assign(f,infilename);
  reset(f);
  {Загрузим всех студентов}
  while not eof(f) do
  begin
    readln(f,s);
    if s='' then inc(count);
    if pos('Фамилия студента',s)<>0 then std[count].name:=copy(s,pos(':',s)+2,255);
    if pos('Индекс группы',s)<>0 then std[count].Group:=copy(s,pos(':',s)+2,255);
    if pos('Средний балл',s)<>0 then val(copy(s,pos(':',s)+2,255),std[count].srBal,p);
    for p:=1 to 5 do if pos(prednames[predmets(p-1)],s)<>0 then
      std[count].predmet[predmets(p-1)]:=s[length(s)]='1';
  end;
  close(f);
  {Отсортируем наших студентов по убыванию среднего балла}
  repeat
    sign:=false;
    for p:=1 to count-1 do if std[p].srbal<std[p+1].srbal then
    begin
      tempstd:=std[p];
      std[p]:=std[p+1];
      std[p+1]:=tempstd;
      sign:=true;
    end;
  until not sign;
  {Выведем студентов}
  for p:=1 to count do
  begin
    if std[p].predmet[predmets(choise-1)] and (choisecount<8) then
    begin {Если этот студент записан на дисцеплину, и их не больше 8}
      inc(choisecount);
      writeln('Фамилия студента: ',std[p].name);
      writeln('Индекс группы: ',std[p].group);
      writeln('Средний балл: ',std[p].srbal:0:2);
    end;
  end;
end.

type
  predmets=(Matem,Pfiz,Him,Istor,Relig);
  tstd=record
    Name:string[100];
    Group:String[20];
    predmet:array[Matem .. Relig] of boolean;
    srbal:real;
  end;
const
  infilename='d:\test\disciple.txt';
  maxstudents=100;
  prednames:array[Matem .. Relig] of string=('Математика','Физика','Химия','История','Религоведение');
var
  count:word:=1;
  choisecount:byte:=0;
var
  f:text;
  std:array[1..maxstudents] of tstd;
  tempstd:tstd;
  p:integer;
  sign:boolean;
  s:string;
  choise:byte;
begin
  writeln('Выберите одну из дисциплин:');
  for p:=1 to 5 do writeln(p,' - ',prednames[predmets(p-1)]);
  readln(choise);
  assign(f,infilename);
  reset(f);
  {Загрузим всех студентов}
  while not eof(f) do
  begin
    readln(f,s);
    if s='' then inc(count);
    if pos('Фамилия студента',s)<>0 then std[count].name:=copy(s,pos(':',s)+2,255);
    if pos('Индекс группы',s)<>0 then std[count].Group:=copy(s,pos(':',s)+2,255);
    if pos('Средний балл',s)<>0 then val(copy(s,pos(':',s)+2,255),std[count].srBal,p);
    for p:=1 to 5 do if pos(prednames[predmets(p-1)],s)<>0 then
      std[count].predmet[predmets(p-1)]:=s[length(s)]='1';
  end;
  close(f);
  {Отсортируем наших студентов по убыванию среднего балла}
  repeat
    sign:=false;
    for p:=1 to count-1 do if std[p].srbal<std[p+1].srbal then
    begin
      tempstd:=std[p];
      std[p]:=std[p+1];
      std[p+1]:=tempstd;
      sign:=true;
    end;
  until not sign;
  {Выведем студентов}
  for p:=1 to count do
  begin
    if std[p].predmet[predmets(choise-1)] and (choisecount<8) then
    begin {Если этот студент записан на дисцеплину, и их не больше 8}
      inc(choisecount);
      writeln('Фамилия студента: ',std[p].name);
      writeln('Индекс группы: ',std[p].group);
      writeln('Средний балл: ',std[p].srbal:0:2);
    end;
  end;
end.