Bantu Koreksiin Tugas no 2

Program Data_Mahasiswa_TeknikInformatika;
Uses
    crt;
Type
    DataMahasiswa       = record
                                NIM     : integer;
                                Nama    : string [ 25 ];
                                Alamat  : string [ 25 ];
                                Status  : string [ 6 ];
                                FB      : string [ 15 ];
                                end;
Var
   Mahasiswa    : DataMahasiswa;
   Msiswa       : File of DataMahasiswa;
   answer       : char;

Begin
     clrscr;
     writeln ( ' Data Inputan Nama Mahasiswa ');writeln;
     assign(Msiswa,'DataMahasiswaTI.txt');
     rewrite( Msiswa );
     repeat
           Write('NIM   :');readln(Mahasiswa.NIM);
           write('Nama  :');readln(Mahasiswa.Nama);
           write('Alamat:');readln(Mahasiswa.Alamat);
           write('Status:');readln(Mahasiswa.Status);
           write('FB    :');readln(Mahasiswa.FB);
           write(Msiswa,Mahasiswa);
           writeln('Input Data Lagi ?');readln(answer);writeln;
     until(answer = 't') or ( answer = 'T');
     close(Msiswa);
     while not eof ( Msiswa ) do
     Begin
          read( Msiswa,Mahasiswa);
          writeln ( Mahasiswa.NIM,Mahasiswa.Nama,Mahasiswa.Alamat,Mahasiswa.Status,Mahasiswa.FB);
          end;
     close(Msiswa);
     readln;
End.

Terima Kasih