Типизированный файл с анкетами студентов (Паскаль)

[Pyxy]

Помогите с задачкой
вот условие
Студентам 5-го курса была предложена анкета о том, знания которых прочитанных курсов могут быть использованы в будущей профессиональной
деятельности. Результаты анкетирования были занесены в файл. Напишите программу создания типизированного файла анкетирования (перечень прочитанных курсов состоит из 5-7 предметов) и обработки этого файла следующим образом:
выбрать и напечатать названия предметов, получивших наибольшую оценку (если их несколько - перечислить все).
вот я делала но у меня не выводит всех с наибольшей оценкой

program Stydent;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type  Anketyvannya=record
        Nazva_predmety:string[10];
        Ozinka:integer;
 end;
 const n=6;
 var a:  Anketyvannya; i:integer;
       Anketa: file of Anketyvannya;
        max:integer;
        Predmet:string[10];
begin
writeln ('VVedit 6 predmetiv i vvedit ocinky z nogo:');
assign (Anketa,'Anket_stydenta');
rewrite (Anketa);
        for i:=1 to n do
        begin
        write ('Predmet:');
        readln(a.Nazva_predmety);
        write ('Ocinka:');
        readln (a.Ozinka);
        write(Anketa,a);
        end;
close (Anketa);
writeln ('*****************************************************************');
reset (Anketa);
max:=a.Ozinka;
while not eof (Anketa) do
with a do
        begin
        read (Anketa,a);
        if a.OZinka>max then
          begin
            max:=a.Ozinka;
            Predmet:=a.Nazva_predmety;
        end;
        end;
         writeln ('Nauvuza ozinka z predmety: ',Predmet,'  - ', max);
close (Anketa);
readln;
end.

___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Gagarik]

У тебя происходит поиск предмета с наибольшей оценкой. Но только одного! Типичный алгоритм поиска максимального значения. Тут все хорошо. Но если предметов несколько, то нужно сначала найти максимальную оценку, а в следующем цикле выводить на экран те предметы у которых стоит эта оценка. Что то типа:

while not eof (Anketa) do
with a do
 begin
   read (Anketa,a);
   if a.OZinka=max then
     writeln ('Nauvuza ozinka z predmety: ',Predmet,'  - ', max);
 end;

ЗЫ. и для красоты я бы сделал так: writeln ('VVedit ',n,' predmetiv i vvedit ocinky z nogo:');

[Pyxy]

Спасибо, работает)))))