Файлы, файл уже написан, нужно выполнить с ним небольшое действие

{описание файла:
файл Студент:
1. фио (40 знаков)
2. номер курса (1 знак)
3. номер группы (1 знак)
4. успеваемость - 5 экзаменов в каждой из 10 сессий
5. форма обучения (целевая, договорная, 1 знак)
6. экзамен:
а) наименование предмета (10 знаков)
б) оценка (1 знак)
записи упорядочены по номеру курса,
внутри курса - по номеру группы, в группе по фио}
 
program n5_str105;
uses crt;
const m=10;
type zap=record
fio:string[40];
nk:integer;
ng:integer;
usp:array[1..10] of integer;
forma:char;
exam:string[10];
oc_ex:integer
end;
mas=array[1..m] of zap;
var f1: file of mas;
x:zap;
y:mas;
i,j,k,n,kurs1:integer;
Begin
clrscr;
assign(f1,'Studentinput.dat');
rewrite(f1);
write('Введите количество студентов: ');
readln(n);
for i:=1 to n do
begin
writeln('Введите информацию о студенте');
write('Введите фамилию, имя и отчество: ');
readln(x.fio);
write('Введите номер курса: ');
readln(x.nk);
write('Введите номер группы: ');
readln(x.ng);
writeln('Введите успеваемость (5 экзаменов в каждой сессии, без пробелов): ');
kurs1:=0;
for j:=1 to 2*x.nk do
begin
if j mod 2 <> 0 then
begin
kurs1:=kurs1+1;
write('Оценки на зимней сессии ', kurs1,' курса: ');
readln(x.usp[j])
end
else
begin
write('Оценки на летней сессии ', kurs1,' курса: ');
readln(x.usp[j])
end
end;
write('Введите форму обучения (один знак: ц - целевая, д - договорная): ');
readln(x.forma);
write('Введите название предмета (не более 10 символов): ');
readln(x.exam);
write('Введите оценку по этому экзамену: ');
readln(x.oc_ex);
y[i]:=x
end;
write(f1,y);
close(f1);
reset(f1);
read(f1,y);