Используя файл, вывести на екран фамилии тех студентов, у которых все оценки 5

program ololo;
uses crt;
type
 stud=record
 fio:string[20];
 oc_rus:1..5;
 oc_mat:1..5;
 oc_fis:1..5;
 oc_istor:1..5;
 oc_xim:1..5;
 end;
mas=array[1..5] of stud;
var
a:mas;
b:stud;
f1,f2:file of stud;
flag:boolean;
n,i:integer;
begin
clrscr;
assign(f1,'stud.txt');
rewrite(f1);
write('введите количество человек');
readln(n);
for i:=1 to n do
with a[i] do
begin
write('фио');
readln(fio);
write('оценко по русскому');
readln(oc_rus);
write('оценка по математики');
readln(oc_mat);
write('оценка по физике');
readln(oc_fis);
write('оценка по истории');
readln(oc_istor);
write ('оценка по химии');
readln(oc_xim);
write(f1,a[i]); {записываем массив в файл}
end;
close(f1);
flag:=false;
assign(f2,'stud.txt');
reset(f2);
while not eof(f2) do
begin
read(f2,b);
if (b.oc_rus=5) and (b.oc_mat=5) and (b.oc_fis=5) and (b.oc_istor=5) and (b.oc_xim=5) then
                                                                                      begin
                                                                                      writeln(b.fio);
                                                                                      flag:=true;
                                                                                      end;
end;
if flag=false then write('отличников нет');
close(f2);
readkey;
end.