Ujian Sem/sem II

uses crt;
type
                  mahasiswa = record
                    nim                    : integer;
                    nama                   : string [15];
                    jk                     : string [2];
                    tm,tt,mdr,prkt,mid,ua  : real;
                    end;
var
   filemahasiswa        : file of mahasiswa;
   recordmahasiswa      : mahasiswa;
   lagi                 : char;
begin
assign(filemahasiswa,'MHS.DAT');
rewrite(filemahasiswa);
lagi :='Y';
while upcase(lagi)='Y' do
begin
clrscr;
with recordmahasiswa do
begin
READ;
     gotoxy(5,6); writeln('Nim Mahasiswa        :');
     gotoxy(5,8); writeln('Nama Mahasiswa       :');
     gotoxy(5,10);writeln('Jenis kelamin        :');
     gotoxy(5,12);writeln('Tatap muka           :');
     gotoxy(5,13);writeln('Terstruktur          :');
     gotoxy(5,14);writeln('Mandiri              :');
     gotoxy(5,15);writeln('Praktikum            :');
     gotoxy(5,16);writeln('Mid semester         :');
     gotoxy(5,17);writeln('Nilai ahir           :');
     gotoxy(5,18);writeln('----------------------');

     gotoxy(27,6);    readln(nim);
     gotoxy(27,8);    readln(nama);
     gotoxy(27,10);    readln(jk);
     gotoxy(27,12);   readln(tm);
     gotoxy(27,13);   readln(tt);
     gotoxy(27,14);   readln(mdr);
     gotoxy(27,15);   readln(prkt);
     gotoxy(27,16);   readln(mid);
     gotoxy(27,17);   readln(ua);
     writeln;
     ua := (tm+tt + mdr + prkt + mid+ua)/6;
     writeln;
     gotoxy(5,20); writeln('----------------------');
     gotoxy(5,22); writeln('nilai ahir (na)=',ua:5:2);
     gotoxy(5,23); writeln('----------------------');
     end;

write(filemahasiswa, recordmahasiswa);
gotoxy(5,24);write('masukkan data lagi (Y/T) ?'); readln(lagi);
end;
close(filemahasiswa);
end.