Типизированный тип файлов(Delphi 7)

[DarkExcellent]

Здравствуйте, помогите плиз. На практике написал прогу для создания текстового файла, в котором должно быть: Имя студента, оценки по предметам и средний балл. Мне задали задание сделать этот файл типизированным а не текстовым. Как это сделать? Я слабо разбираюсь так что не злитесь если что то не понял.
Вот программа:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type

 TPredmet = record
 name:string[20];
 ocenka:Byte;
 end;

 TStudent = record
 fName:string[20];
 ppR:array[1..3] of TPredmet;
 srb:Double;
 end;

 var
   MyFile:TextFile;
   Massivl:array[1..5] of TStudent;
   i,j,temp,tempO,k,tempI,n:Integer;
   tName,tp:string[30];
   str,TSTR:string[250];
   tMax:Double;

begin
  AssignFile(MyFile,'C:\Program Files\Borland\Delphi7\Projects\Laba2\file');
  ReWrite(MyFile);
  tempO:=0;
  for i := 1 to 5 do
  begin
    Writeln('Vvedite imya studenta :',i);
    Readln(tName);
    Massivl[i].fName:=tName+' ';
    Writeln('Vvedite ocenku studenta po predmetu:');
    for j := 1 to 3 do
    begin
      case j of
      1:
      begin
        Write('OOP: ');
        tp:='OOP';
      end;
      2:
      begin
        Write('Java: ');
        tp:='Java';
      end;
      3:
      begin
        Write('KST: ');
        tp:='KST';
      end;
      end;
      Readln(temp);
      Massivl[i].ppR[j].name:=' '+tp+' ';
      Massivl[i].ppR[j].ocenka:=temp;
      tempO:=tempO + Massivl[i].ppR[j].ocenka;
    end;
    Massivl[i].srb:= tempO / 3;
    tempO:=0;
  end;

  for k := 1 to 5 do
  begin
    for i :=4 downto 1 do
    if Massivl[i+1].srb >= Massivl[i].srb
    then
    begin

      TSTR:=Massivl[i].fName;
      Massivl[i].fName:=Massivl[i+1].fName;
      Massivl[i+1].fName:=TSTR;

      for n := 1 to 3 do
      begin
      tempI := Massivl[i].ppR[n].ocenka;
      Massivl[i].ppR[n].ocenka:=Massivl[i+1].ppR[n].ocenka;
      Massivl[i+1].ppR[n].ocenka:=tempI;
      end;

      tMax:=Massivl[i].srb;
      Massivl[i].srb:=Massivl[i+1].srb;
      Massivl[i+1].srb:=tMax;
    TSTR:='';
    end;
    end;

  for i := 1 to 5 do
  begin
      Write(MyFile, Massivl[i].fName);
      for j := 1 to 3 do
      begin
        Write(MyFile, Massivl[i].ppR[j].name , Massivl[i].ppR[j].ocenka);
      end;
      Write(MyFile, '');
      Write(MyFile, ' Srb ',Massivl[i].srb:1:2);
      Writeln(MyFile, '');
      end;
  Closefile(MyFile);
  AssignFile(MyFile, 'C:\Program Files\Borland\Delphi7\Projects\Laba2\file.dat');
  Reset(MyFile);
  While not Eof(MyFile) do
  Begin
    ReadLn(MyFile,str);
    WriteLn(str);
  End;
  Closefile(MyFile);
  Readln;
end.