Помогите подправить код под условие ( Паскаль)

Type
TOcenka = record
nazv: String[20];
ocenka: 2..5; //или сколько там у вас
end;
TOcenki = record
oc: Array[Byte] Of TOcenka;
kolvo: Byte;
end;
TAbiturient = record
fam, imia, otch: String[30];
rozhd: 1900..2020;
okonch: 1900..2020;
attest: TOcenki;
obsch: Boolean;
ekzam: Array[0..2] Of TOcenka;
end;
TFile = File Of TAbiturient;

function CheckAbiturient(const a: TAbiturient; const param: Byte;): Boolean;
var
Result: Boolean;
i: Byte;
sum: Word;
begin
case param of
with a do
begin
i := 0;
repeat
Result := ekzam[i] <> 5;
Inc(i);
until ((i = Length(ekzam)) Or (Result));
end;
Result := Result And (2015 - rozhd > 17);
end;
end;
CheckAbiturient := Result;
end;

procedure Filtration(const param: Byte);
var
f, g: File Of TAbiturient;
a: Abiturient;
begin
Assign(f, 'f.dat'); Assign(g, 'g.dat');
Reset(f); ReWrite(g);
while (Not Eof(f)) do
begin
Read(f, a);
if Not (CheckAbiturient(a, param))
Условие: Подготовить данные об абитуриентах, поступающих в университет. Информацию о каждом абитуриенте оформить в виде записи, содержащей следующие поля:
1 поле) ФИО
2 поле) Год рождения;
3) Год окончания школы;
4) Признак, нуждается ли общежитии;
5) Оценки вступительных экзаменов;
Разработать программу записи, подготовленных данных во внешний файл и программу обработки, созданного внешнего файла.
В этой программе обработки есть два задания:
1)Удалить из внешнего файла все записи, удовлетворяющие заданному условию и распечатать информацию, оставшуюся в файле.
2)Добавить n записей во внешний файл и распечатать записи, полученного файла, согласно конкретному варианту:
Из внешнего файла содержащего исходные данные удалить записи соответствующие:
Абитуриентам, не получившим ни одной оценки 5.
Распечатать полученный файл.
Используя внешний файл, содержащий исходные данные, добавить n записей и распечатать:
n=3, распечатать список абитуриентов, сдавших экзамены с двумя оценками 4 и остальными оценками 5.