Добавить N записей и вывести на печать Список абитуриентов, сдавших экзамены с двумя оценками 4

program sps;
type z=record
     f: string;
     ocenka: string;
end;
var  F: file of z;
     abiturient:  array [1..3]  of  z;
     i, N: integer;
begin
writeln;
write('Введiть кiлькiсть записів про абітурієнтів =');
readln(N);
assign(F,'c:\ abiturient');
rewrite(f);
writeln(' Введiть данi про абітурiєнтiв');
for i:=1 to n do begin
write('Familija:');
readln(abiturient[i].f);
write(' Введiть оцінку за перший екзамен:');
readln(ocenka [i].f);
write(' Введiть оцінку за другий екзамен:');
readln(ocenka [i].f);
write(' Введiть оцінку за третій екзамен:');
readln(ocenka [i].f);
write(' Введiть оцінку за четвертий екзамен:');
readln(ocenka [i].f);
write(F, abiturient[i]);
writeln('----------------');
end;
Close(F);
end.
procedure druk;
type z=record
     f: string;
     ocenka: string;
       end;
var  F: file of z;
    abiturient: z;
     i:integer;
     s:integer;
begin
assign(F,'c:\ abiturient ');
reset(f);
writeln;
writeln;
writeln('Список абітурієнтів, що здали iспити з двома оцiнками 4 i іншими 5 ');
while not Eof(f) do
begin
read(F, abiturient);
if  (ocenka ='4') and (ocenka ='4') and (ocenka ='5') then
   writeln(abiturient.f);
end;
Close(F);
readln;
end.

program sps;
type z=record
       f: string;
       ocenka:array[1..4] of byte;//массив оценок
       end;
      tfile=file of z;//тип файла
var f:tfile;
//создание исходного файла
procedure create_file;
var ab:z;
    n,i,j:integer;
begin
write('Введiть кiлькiсть записів про абітурієнтів =');
readln(n);
assign(F,'abiturient'); //файл в папке с программой
rewrite(f);
writeln(' Введiть данi про абітурiєнтiв');
for i:=1 to n do
 begin
   with ab do
    begin
     write('Фамилия:');readln(f);
     writeln('Введите 4 оценки от 2 до 5');
     for j:=1 to 4 do
     readln(ocenka [j]);
    end;
  write(f,ab);
 end;
end;
//чтение всего файла
procedure read_file;
var ab:z;
    i:integer;
begin
reset(f);
while not eof(f) do
 begin
  read(f,ab);
  with ab do
   begin
    write(f);
    for i:=1 to 4 do
    write(ocenka[i]:3);
    writeln;
   end;
 end;
end;
//добавление 3х записей в файл
procedure add_file;
var  ab: z;
     i,j:integer;
begin
reset(f);
writeln(' Введiть данi про 3 абітурiєнтiв');
for i:=1 to 3 do
 begin
  with ab do
   begin
    write('Фамилия:');readln(f);
    writeln('Введите 4 оценки от 2 до 5');
    for j:=1 to 4 do
    readln(ocenka [j]);
   end;
  seek(f,filesize(f));
  write(F, ab);
 end;
end;
//вывод данных по условию
procedure druk;
var ab:z;
    i,k,k4,k5:integer;
begin
reset(f);
writeln('Список абітурієнтів, що здали iспити з двома оцiнками 4 i іншими 5 ');
k:=0;
while not Eof(f) do
 begin
  read(F, ab);
  k4:=0;
  k5:=0;
  for i:=1 to 4 do
  if ab.ocenka[i]=4 then inc(k4)
  else if ab.ocenka[i]=5 then inc(k5);
  if(k4=2)and(k5=2) then
   begin
    k:=1;
    write(ab.f);
    for i:=1 to 4 do
    write(ab.ocenka[i]:3);
    writeln;
   end;
 end;
close(f);
end;
begin
create_file;
writeln('Исходный файл');
read_file;
add_file;
writeln('Файл после добавления записей');
read_file;
druk;
end.