ООП Паскаль, переделать задачу

[mishammm]

Здраствуйте, помогите плиз переделать задачу под ООП, любым способом

 const
  n = 4;
type
  student = record
    N: byte;
    prizv: string;
    matan: real;
    prog: real;
    Os: real;
    alg: real;
  end;
var
  i: integer;
  tabl: array[1..n] of student; tabik: file of student;
  otv: integer;

procedure lin(m: integer);
var i: integer;
begin
  for i := 1 to m do write('-'); writeln;
end;

begin
  assign(tabik, 'd:\result.dat');

  Write('Perezapisat fail ? (1 - tak, 0 - ni):');
  ReadLn(otv);
  if otv = 1 then
  begin
    rewrite(tabik);
    writeln('VVedi dani stydentiv');
    for i := 1 to n do
    begin
      tabl[i].N := i;
      readln(tabl[i].Prizv, tabl[i].matan, tabl[i].prog, tabl[i].OS, tabl[i].alg);
      write(tabik, tabl[i]);
    end;
    Close(tabik);
  end;

  {прочитать из файла в массив}
  reset(tabik);
  for i := 1 to n do
    Read(tabik, tabl[i]);
  Close(tabik);

  Lin(69);
  writeln('|   | Призвіще | Matematuchnuy | Programyvannya | OS | Algebra | cer|');
  writeln('|   |          |    analis     |                |    |  i geom.|    |');
  Lin(69);
  for i := 1 to n do
  begin
    write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
    write(tabl[i].matan: 15, '|', tabl[i].prog: 16, '|', tabl[i].OS: 4, '|', tabl[i].alg: 9, '|',
     ((tabl[i].matan + tabl[i].prog + tabl[i].OS + tabl[i].alg) / n): 0: 2, '|');
    writeln;
    Lin(69);
  end;
  writeln;
  writeln('vidcortov');
  Lin(69);
  for i := 1 to n do
  begin
    if ((tabl[i].matan + tabl[i].prog + tabl[i].OS + tabl[i].alg) / 4 >= 4) then
    begin
      write('|', tabl[i].N: 2, ' |', tabl[i].Prizv: 10, '|');
      write(tabl[i].matan: 15, '|', tabl[i].prog: 16, '|', tabl[i].OS: 4, '|', tabl[i].alg: 9, '|', ((tabl[i].matan + tabl[i].
      prog + tabl[i].OS + tabl[i].alg) / n): 0: 2, '|');
      writeln;
      Lin(69);
    end;
  end;
  readln
end.

понятие не имею как правильно переделать.