Из внешнего файла, содержащего исходные данные, переписать в другой список абитуриентов, сдавших экзамены

type abit=record
     fam:string;
     ocen:array[1..5] of integer;
     end;
var f:file of abit;
x:abit;
i,n,k,j,b:integer;
begin
     assign(f,'d:\abc.txt');
     rewrite(f);
     write('введите кол-во абитуриентов-');
     read(n);
     writeln('введите ',n,' фамилий и 5 оценок каждого абитуриента:');
     for i:= 1 to n do
         begin
              writeln('введите фамилию');
              read(x.fam);
              writeln('введите 5 оценок');
              for j:= 1 to 5 do read(x.ocen[j]);
              write(f,x);
         end;
     close(f);
     reset(f);
     writeln('список абитуриентво, у которых две оценки 4 в аттестате и остальные 5:');
     while not eof(f) do
           begin
                b:=0;
                k:=0;
                read(f,x);
                for j:= 1 to 5 do
                    if x.ocen[j]=4 then k:=k+1;
                 for j:= 1 to 5 do
                    if x.ocen[j]=5 then b:=b+1;
                if b<>2 then
                if k<>3 then writeln(x.fam);
           end;
     close(f);
end.

if b>2 then
if k=5-b then writeln(x.fam);