Прошу помощи. Тема: Типизированный файл. PascalABC.NET

[Roman_BaTbKo]

Задание:

Написать программу для хранения информации об успеваемости студентов. Необходимо хранить номер группы, фамилию студента, оценки за последнюю сессию. Программа должна позволять хранить эту информацию в виде файла на дискете, корректировать указанную информацию и распечатывать списки студентов по группам с указанием среднего балла за последнюю сессию.

Вот, что я пытался сделать самостоятельно, но явно это бред..

type stud=record
 gruppa:string[10];
 fio:string[20];
 ocenki:byte;
end;

Var
a:array[1..5] of stud;
i,n:integer;
f1:file of stud;
begin
assign(f1,'stud.txt');
rewrite(f1);
 for i:=1 to 5 do
 with a[i] do
 begin
  Writeln('Введите номер группы:');
  read(gruppa);
   write(a[i], gruppa);
  
  Writeln('Введите ФИО:');
  read(fio);
    write(a[i], fio);
    
  Writeln('Введите оценки за последнюю сессию');
  read(ocenki);
   write(a[i], ocenki);
 
 end;end.

Очень прошу помощи, т.к. пропустил эту тему.. а пересдачу не хочется схлопотать в конце семестра(