Написать программу Формирования базы данных

Program task;
Type student=Record Fio:String[20];
     Group:String[10];
     Kol_uv:Integer;
     Kol_neuv:Integer;
 End;
Var G:Student;
    f:File of Student;
    i:Integer;
    FileName:String[20];
    YYY:String[5];
    XXX:integer;
    Sum:integer;
    
    Begin
    Write('введите имя файла');Readln(FileName);
    Assign(f,FileName);
    
    Rewrite(f);
    With G Do
    Begin
    Write('Ivanov Petr Sergeevich');Readln(Fio);
    While Fio<>''Do
    Begin
    Write('Ozin-90901');Readln(Group);
    Write('5');Readln(Kol_uv);
    Write('3');Readln(Kol_neuv);
    Write(f,G);
    Write('Ivanov Petr Sergeevich');Readln(Fio);
    End;
  End;
  Close(f);
  Writeln('База данных');
  Reset(f);
  i:=0;
  Writeln('N Ivanov Petr Sergeevich Ozin-90901 3 5');
  While Not Eof(f)Do
  Begin
  Read(f,g);
  i:=i+1;
  Write(i,'',g.Fio:20,'',g.Group:10,'',g.Kol_uv,'',g.Kol_neuv);
  Writeln;
  End;
  Close(f)
  Writeln('5');
  Resdln(XXX);
  Reset(f);
  Writeln('Список студентов,пропустивших более,'ХХХ',по неуважит.причине');
  Writeln('Ivanov Petr Sergeevich','Ozin-90901');
  While Not Eot(f)Do
  Begin
  Read(f,g)
  if g.Kol_neuv >XXX Then
  Writeln(g.Fio:20,'',g.Group:10);
  End;
  Writeln;
  Seek(f,0);
  Writeln('Ozin-90901');
  Readln(YYY);
  sum:=0;
  While Not Eof(f)Do
  Begin
  Read(f,g);
  if g.Group=YYY Then
  Sum:=Sum+Kol_neuv;
  End;
  Writeln('Общее количество пропусков по неув.причине гр.,'YYY','-',sum,'час');
  Close(f);
  End.

uses crt;
const n=2;
type student=record
      name:string[12];
      group:byte;
      uv:integer;
      nuv:integer;
     end;
var x:array[1..n] of student;
    i:integer;
    xxx,yyy,s:integer;
begin
ClrScr;
for i:=1 to n do
 with x[i] do
  begin
   Write(' Name: ');
   Readln(name);
   Write(' Group: ');
   Readln(group);
   Write(' Kol_uv: ');
   Readln(uv);
   Write(' Kol_neuv: ');
   Readln(nuv);
  end;
Writeln('Table: ');
Writeln('------------------------------------------');
Writeln('|| N |  Name  |  Group  |  Kol  |  Kol  ||');
Writeln('------------------------------------------');
for i:=1 to n do
 Writeln('||',i:3,'|',x[i].name:8,'|',x[i].group:9,'|',x[i].uv:7,'|',x[i].nuv:7,'||');
Writeln('------------------------------------------');
Readln;
Writeln('Vvedite kol chasov: ');
Readln(xxx);
for i:=1 to n do
 if x[i].nuv>xxx then
  Writeln(i,' |',x[i].name);
Writeln('Vvedite group: ');
Readln(yyy);
s:=0;
for i:=1 to n do
 if x[i].group=yyy then
  s:=s+x[i].nuv;
Writeln('S=',s);
Readln;
end.