Вот какая-то подсказка как сделать, только не понимаю как. Знатоки, вся надежда на вас.
type
studlib=record
FIO:string;
Birth_Date:string;
Course:integer;
Year: word;
Marks:Array [1..3] of integer;
Mmark: Real;
end;
var
i: integer;
studrec : studlib; {запись}
StudFile: file of studlib; {сам файл}
begin
Fillchar(StudRec,Sizeof(StudRec),0); {зачищаем от мусора}
Assign(StudFile, 'StudFile.dat'); {объявляем файл }
Rewrite(StudFile); {создаем или открываем Reset файл}
for i:=1 to 10 do {и чего нибудь пишем в него....}
begin
StudRec.Course := i;
Write(StudFile, StudRec);
end;
Close(StudFile); {не забываем закрыть}
end. {для того чтобы прочитать или записать нужную запись}
{не забываем позиционирование на нее Seek(StudFile, MyRecNo)}