Program 6

uses crt;
type
                  mahasiswa = record
                    nim                 : integer;
                    nama                : string [15];
                    jtm,tm,tt,mid,nus   : real;
                    end;
var
   filemahasiswa        : file of mahasiswa;
   recordmahasiswa      : mahasiswa;
   jumlahrecord         : integer;
   urutanrecord         : integer;
   lagi                 : char;
begin
assign(filemahasiswa,'mhs.dat');
reset(filemahasiswa);
jumlahrecord := filesize(filemahasiswa);

lagi :='Y';
while upcase(lagi)='Y' do
begin
clrscr;
write('nomor record di cari (1 -', jumlahrecord:3,') ?: ');
readln(urutanrecord);
writeln;

if(urutanrecord < 1) or (urutanrecord > jumlahrecord) then
writeln('tidak ada nomor record ini !!!')
else
begin
seek(filemahasiswa,urutanrecord-1);
read(filemahasiswa,recordmahasiswa, recordmahasiswa);

writeln('nim mahasiswa  : ',recordmahasiswa.nim:5);
writeln('nama mahasiswa : ',recordmahasiswa.nama);
writeln('jtm mahasiswa  : ',recordmahasiswa.jtm);
writeln('tm mahasiswa   : ',recordmahasiswa.tm);
writeln('tt mahasiswa   : ',recordmahasiswa.tt);
writeln('mid mahasiswa  : ',recordmahasiswa.mid);
writeln('nus mahasiswa  : ',recordmahasiswa.nus);
end;
writeln;
write('ada lagi yang akan dicari (Y/T) ?'); readln(lagi);
end;
close(filemahasiswa);
end.