Типизированный файл (Turbo pascal) почти сделал, но...

[Marksman_SwAt]

А если больше восьми, то сюда:

procedure vyvod;
var
  x,i,j:integer;
begin
  write('Выберите номер дисциплины для вывода списка студентов (1-5): ');
  readln(x);
  writeln('N', 'Фамилия':9, 'Группа':12, 'Средний балл':15);
  i:=1;
  while not EOF(f) do
    begin
      read(f,stud[i]);
      i:=i+1;
     end;
  for j:=1 to i-1 do
    begin
      with stud[j] do
        if predmety[x]='1' then
          writeln(j, fam:10, grup:8, bal:10:2,predmety[x]:8);
    end;
  writeln('Нажмите <ENTER> для продожения работы...');
  close(f);
  readln();
end;

нужно добавить условие (if>8 then), и дальше сортировать у кого больше балл ? Так?

[ZX Spectrum-128]

Я бы сделал так

  // считаем первым прходом кол-во студентов = данному условию
  Number:=1; usl:=false;
  for j:=1 to i-1 do
    begin
      with stud[j] do
        if predmety[x]='1' then
          Number:=number+1;
        If number >8 then 
           Begin
             Usl:=true; break;
            End;
  End;
  // а теперь выводим только тех кого нужно
// в зависимости от условия

  for j:=1 to i-1 do
    begin
      with stud[j] do
         If usl then
            if (predmety[x]='1' ) and (bal>3.5) then
// здесь вывод
         Else 
       if (predmety[x]='1' )  then
// здесь вывод

Как-то так
без поллитры наверно трудно понять мое косноязычие
Если не получится, свистните, попробую пояснить, либо доделать

[Marksman_SwAt]

Что-то у меня вообще перестало искать (я просто вставил в процедуру vyvod)

[ZX Spectrum-128]

Хорошо, сейчас поковыряюсь

[Marksman_SwAt]

Вы очень отзывчивый человек и стараетесь всем помочь, где не глянь, везде ваши ответы. Спасибо вам за помощь, побольше бы таки людей.

( сам стараюсь помочь, если что-то знаю, уже двум одногрупникам помог, а сам еще маюсь с этими задачками)

[ZX Spectrum-128]

uses
  crt;
Type
  discip=record
    fam:string[20];
    grup:string[10];
    predmety:array [1..5] of char;
    bal:real;
  end;
var
  f,d: file of discip;
  pac:array[1..10] of discip;
  i,n:integer;

procedure dobavlenie;
var
  j,i:integer;
begin
  writeln('Введите количетво студентов ');
  readln(n);
  for i:=1 to n do
    begin
      writeln('Введите данные об ', i ,' студенте ');
      with pac[i] do
        begin
          write('Фамилия ');
          readln(fam);
          write('Группа ');
          readln(grup);
          write('Средний балл ');
          readln(bal);
          for j:=1 to 5 do
            begin
              write(j,'-я дисциплина: ');
              readln(predmety[j]);
            end;
        end;
        seek(f,filesize(f));
        write(f,pac[i]);
    end;
  close(f);
  writeln('Запись успешно добавлена!');
  writeln('Нажмите <ENTER> для продожения работы...');
  readln();
end;


procedure udalenie;
var toDelete:integer;
begin
assign(d,'temp.dat');
rewrite(d);
writeln('Введете номер записи для удаления');
readln(toDelete);
i:=1;
while not EOF(f) do
begin
  read(f,pac[i]);
  if (toDelete <> i) then write(d,pac[i]);
  i:=i+1;
end;
close(f);
close(d);
Erase(f);
Rename(d,'discip.dat');
writeln('Запись успешно удаленна!');
writeln('Нажмите <ENTER> для продожения работы...');
readln();
end;

procedure vyvod;
var
  number,k,x,i,j:integer;
  usl:boolean;
begin
  write('Выберите номер дисциплины для вывода списка студентов (1-5): ');
  readln(x);
  write('N', 'Фамилия':9, 'Группа':12, 'Средний балл':15);
  writeln(' 1 ',' 2 ',' 3 ',' 4 ', ' 5 ');
  i:=1;
  while not EOF(f) do
    begin
      read(f,pac[i]);
      i:=i+1;
     end;
  Number:=1;
  usl:=false;
  for j:=1 to i-1 do
    begin
      with pac[j] do
        if predmety[x]='1' then
          Number:=number+1;
        If number >8 then
           Begin
             Usl:=true;
             break;
            End;
  End;
  writeln;
//  writeln(number,usl);
  // а теперь выводим только тех кого нужно
  // в зависимости от условия

  for j:=1 to i-1 do
    begin
      with pac[j] do
      if usl then
        begin
          if (predmety[x]='1') and (bal>3) then
            begin
              write(j:3, fam:10, grup:8, bal:10:2, ' ':5);
              for k:=1 to 5 do
                write(pac[j].predmety[k]:3);
              writeln;
            end;
        end
      else
        begin
          if (predmety[x]='1')  then
            begin
              write(j:3, fam:10, grup:8, bal:10:2, ' ':5);
              for k:=1 to 5 do
                write(pac[j].predmety[k]:3);
              writeln;
            end;
        end



    end;
  writeln('Нажмите <ENTER> для продожения работы...');
  close(f);
  readln();
end;

procedure sozd;
begin
  Assign(f,'discip.dat');
  rewrite(f);
  pac[1].fam:='Gates';
  pac[1].grup:='Microsoft';
  pac[1].bal:=0.0;
  pac[1].predmety[1]:=' ';
  pac[1].predmety[2]:=' ';
  pac[1].predmety[3]:=' ';
  pac[1].predmety[4]:=' ';
  pac[1].predmety[5]:=' ';
  write(f,pac[1]);
  close(f);
end;

procedure mainMenu;
begin
  Assign(f,'discip.dat');
  reset(f);
  clrscr;
  writeln('Программа для работы с клиентами');
  writeln('Выберите пункт');
  writeln('1. Добавить запись в файл');
  writeln('2. Удалить запись из файла');
  writeln('3. Вывод содержимого на экран');
  writeln('4. Cоздание файла');
  writeln('6. Выход');
  writeln();
  write('-> ');
end;

{---------------main programm}
begin
while true do
  begin//start:
    mainMenu;
    readln(n);
    case n of
      1: dobavlenie;
      2: udalenie;
      3: vyvod;
      4: sozd;
      6: exit;
    end;
  end;
//goto start;
end.

Первый скрин без условия более 8 чел, втророй с ним

[Marksman_SwAt]

Спасибо огромное.
Сразу не понял что за 1 2 3 4 5, а потом разобрался. Спасибо еще раз.

[ZX Spectrum-128]

Советую средний балл, по которому идет выборка студентов, так же делать запросом от пользователя. А то в программе жестко забито >3
С выводом результатов в текстовый файл разберетесь сами?

[Marksman_SwAt]

Из всех студентов(кто желает слушать именно этот предмет) должно отсортироваться 8, у которых самый высокий бал. Но думаю и так подойдет, изменю на число побольше.

Сообщение от ZX Spectrum-128

С выводом результатов в текстовый файл разберетесь сами?

А все данный записываются в файл discip.dat. Или вы имели в виду что-то другое?

[ZX Spectrum-128]

В условии задачи нет сортировки. При превышении количества более 8 необходимо отобрать только тех, у кого средний балл выше какого-то заданного.
Что и делается в коде
bal>3
Поэтому и желательно запросить у пользователя - выше какого среднего балла выводить списрк.

На экран и в отдельный файл вывести списки студентов, желающих прослушать дисциплину Х

Необходимо вывод списка студентов, который происходит на экран, продублировать выводом в текстовый файл.