Файлы, Помогите решить пожалуйста. Опции

[asxc]

понимаете осталась последняя задача и я её не как написать не могу в программу.
помогите кто может пожалуйста

Файл включает фамилию студента и их оценки по трём предметам в сессии. Распечатать по вводимой фамилии - оценки, а кроме того список студентов, получивших степендию ( не имеющих 2 и 3), получивших повышеную степендию(тока 5)

[amega]

помоему лудше вобще вот так зделать

procedure Addfromfile(var s:TarrRec; var count:integer);
var 
   f:Tfile
begin
assign(f,'file.rec');
reset(f);
count:=0;
while not eof(f) do begin
       count:=count+1; 
       read(f,s[count]);
 end;
close(f);
end;