Обработка файла в Паскале!

[Lika199850]

Помогите выполнить задания!! У меня ничего не получается(
1.) Из файла, содержащего исходные данные, удалить записи, соответствующие абитуриентам, имеющим средний балл экзаменов меньше 4 и хотя бы одну оценку 3 в аттестате.
2.) Добавить N записей в конец внешнего файла, созданного в работе 14, и распечатать записи полученного файла по условию "Список абитуриентов, имеющих средний балл аттестата больше 4,5"
Программа :

program 14; 
const n=4; 
type student=record 
fam:string; 
oa:array [1..15] of byte; ovs:array [1..4] of byte; 
ob:byte; god:integer; end; 
mas=array[1..n] of student; 
var A:mas; i,j,m:integer; sr,srr,s:real; F:file of real; 
begin 
assign(F,'D:\a.txt'); 
rewrite(F); 
for i:=1 to n do 
with A[i] do begin 
writeln('ФИО студента : '); readln(fam); 
writeln('Год окончания школы : '); readln(god); 
writeln('Оцеки в аттестате : '); readln(oa[j]); 
writeln('Нужно ли общежитие? Да-1, Нет-0 : '); readln(ob); 
writeln('Оцеки вступительных экзаменов : '); readln(ovs[m]); 
end; 
s:=0; 
for j:=1 to 15 do 
srr:=oa[j]+s; 
sr:=srr/15; 
for i:=1 to n do 
if (sr>4.5) and (ob=1) then 
assign(F,'otb.txt') 
else assign(F,'ost.txt'); 
end.