Данные структуры запись хранить в типизированном файле

uses
  SysUtils,
  Windows;
 
type kurs = record
      fam:string;
      group:1..2;
      geom,alg,inf:2..5;
     end;
var a:array[1..10] of kurs;
    i,k,b,c,d:integer;
    x,y:string;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
x:=('');
k:=0;
b:=0;
c:=0;
d:=0;
for i:=1 to 10 do
with a[i] do begin
writeln('Фамилия'); readln(fam);
writeln('Группа'); readln(group);
writeln('Оценка по геометрии'); readln(geom);
writeln('Оценка по алгебре'); readln(alg);
writeln('Оценка по информатике'); readln(inf);
if (geom=2)or(alg=2)or(inf=2)then
x:=x+fam;
if (geom>3)and(alg>3)and(inf>3) then
inc(k);
if geom>=2 then
b:=b+geom;
if alg>=2 then
c:=c+alg;
if inf>=2 then
d:=d+inf;
end;
if (b/10>c/10)and(b/10>d/10)then
y:=('Геометрия');
if (c/10>b/10)and(c/10>d/10)then
y:=('Алгебра');
if (d/10>c/10)and(d/10>b/10)then
y:=('Информатика');
writeln('Фамилии студентов, имеющих больше 1 задолжности:',x);
writeln('Качество успеваемости ',k/10*100:3:0,'%');
writeln('Предмет который был сдан лучше всего:',y);
readln;
 { TODO -oUser -cConsole Main : Insert code here }
end.

uses
  SysUtils,
  Windows;
 
type kurs = record
      fam:string[15];
      group:1..2;
      geom,alg,inf:2..5;
     end;
var a: kurs;
    i,k,b,c,d:integer;
    x,y:string;
    f:file of kurs;
    z:kurs;
begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
AssignFile(f,'database.dat');
Reset(f);
x:=('');
k:=0;
b:=0;
c:=0;
d:=0;
for i:=0 to filesize(f)-1 do
Read(f,z);
with z do begin
writeln('Фамилия,fam);
writeln('Группа',group);
writeln('Оценка по геометрии',geom);
writeln('Алгебра',alg);
writeln('Информатика',inf);
if (geom=2)or(alg=2)or(inf=2)then
x:=x+fam;
if (geom>3)and(alg>3)and(inf>3) then
inc(k);
if geom>=2 then
b:=b+geom;
if alg>=2 then
c:=c+alg;
if inf>=2 then
d:=d+inf;
end;
 
if (b/10>c/10)and(b/10>d/10)then
y:=('Геометрия');
if (c/10>b/10)and(c/10>d/10)then
y:=('Алгебра');
if (d/10>c/10)and(d/10>b/10)then
y:=('Информатика');
CloseFile(f);
writeln('Фамилии студентов у которых больше 1 задолжности:',x);
writeln('Качество успеваемости',k/10*100:3:0,'%');
writeln('Предмет который был сдан лучше всего:',y);
readln;
 { TODO -oUser -cConsole Main : Insert code here }
end.

//создание файла записей
AssignFile(f,'database.dat');
Rewrite(f);
write('Сколько записей занести в файл k=');
readln(k);
for i:=1 to k do
 begin
  writeln('Запись ',i);
  with z do
   begin
    write('Фамилия: ');readln(fam);
    write('Группа: ');readln(group);
    write('Оценка по геометрии: ');readln(geom);
    write('Алгебра: ');readln(alg);
    write('Информатика: ');readln(inf);
    write(f,a);
   end;
 end;
//чтение и обработка
reset(f);
........
close(f);
end.