Файлы нужна помощь

[trew]

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

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

[trew]

вот сделал вроде а связать не могу

Type
Tname=string[20];
Trec=record
name1:Tname;
ball: array [1..3] of integer;
end;
TArrRec=array [1..50] of trec;
Tfile = file of Trec;
procedure Addfromfile(var s:TarrRec; var count:integer; 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;


procedure showball(a:TarrRec; count:integer; s:Tname);
var i,j:integer;
begin
for i:=1 to count do
begin
if a[i].name1=s then begin

for j:=1 to 3 do
writeln(a[i].name1,' ',a[i].ball[1],' ',a[i].ball[2]' ',a[i].ball[3]);


end;
end;

procedure showball2(a:TarrRec; count:integer);
var i:integer;
begin
for i:=1 to count do
if (a[i].ball[1]=5) and (a[i].ball[2]=5) and (a[i].ball[3]=5) then
writeln(a[i].name1,' ',a[i].ball[1],' ',a[i].ball[2]' ',a[i].ball[3]);
end;

незнаю может чё нибудь не правильно сделал

[trew]

помогите пожалуйста

[alex_fcsm]

Посмотрите пример

А вот пример про студентов с 2-мя оценками
и искал их по фамилии, группе, по всем хор оценкам или у кого есть неуд

uses crt;
type TStud=record
      surname,num:string[20];
      pr,m:byte;\\оценки
     end;

var x:TStud;
    i:integer;
    f:file of TStud;
    s:string;

begin
assign(f,'c:\1.dat');
reset(f);
repeat
writeln('Input info about student');
readln(x.surname);
readln(x.num);readln(x.pr);readln(x.m);
write(f,x);
writeln('Continue(Esc - exit)?');
until readkey=#27;
close(f);

repeat
clrscr;
assign(f,'c:\1.dat');
reset(f);
writeln('1-surname;2-group;3-all good;4-bad');
case readkey  of
'1':begin
      writeln('Input surname');
      readln(s);
      while not(eof(f)) do
       begin
        read(f,x);
        if x.surname=s then writeln(x.surname,' ',x.num,' ',x.pr,' ',x.m);
       end;
    end;
'2':begin
      writeln('Input group');
      readln(s);
      while not(eof(f)) do
       begin
       read(f,x);
       if x.num=s then writeln(x.surname,' ',x.num,' ',x.pr,' ',x.m);
       end;
    end;
'3':begin
      while not(eof(f)) do
       begin
       read(f,x);
        if (x.pr>=4) and (x.m>=4) then writeln(x.surname,' ',x.num,' ',x.pr,' ',x.m);
       end;
    end;
'4':begin
      while not(eof(f)) do
       begin
       read(f,x);
        if (x.pr=2) or (x.m=2) then writeln(x.surname,' ',x.num,' ',x.pr,' ',x.m);
       end;
    end;
end;
close(f);
writeln('Press ESC for exit');
until readkey=#27;

end.