Используя задачу по обработке типизированных файлов написать программу с использованием технологии ООП

 Const n=4;
 Type
 Zap=Record
 Prizv:string[8];
 Oc, ma, prog, alg:integer;
 end;
  Var
  f: file of Zap;
  i:integer;
  s:real;
  stud:Zap;
  Begin
  Assign (f,'d:\sesija.txt');
  Rewrite (f);
  for i:=1 to n do
   begin
   readln(stud.Prizv);
   readln(stud.Oc);
   readln(stud.ma);
   readln(stud.prog);
   readln(stud.alg);
   write (f, stud);
   end;
   Close(f);
    Assign (f,'d:\sesija.txt');
    Reset (f);
    writeln('rezultatu sesiji');
    writeln('___________________________________');
    writeln('| Prizvyszcze |MA | Pr | OC | ALG  |');
    writeln ('___________________________________');
    while not eof (f) do begin
    read (f,stud);
    Writeln( stud.Prizv:10, stud.Oc:6, stud.ma:6, stud.prog:6, stud.alg:6);
 end;
 writeln ('|___________________________________|');
 Close (f);
 writeln; writeln; writeln;
  Assign (f,'d:\sesija.txt');
  Reset (f);
  writeln ('ser bal < 4');
 writeln('___________________________________');
 writeln('| Prizvyszcze |MA | Pr | OC | ALG |');
 writeln ('|___________________________________|');
 while not eof (f) do begin
 read (f,stud);
 s:=(stud.Oc+stud.ma+stud.prog+stud.alg)/4;
 if s<4 then
 writeln(stud.Prizv:10, stud.Oc:6,stud.ma:6,stud.prog:6, stud.alg:6)
 end;
 writeln ('___________________________________');
 close (f);
 End.