Program 5

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

jumlahrecord := filesize(filemahasiswa);

lagi :='Y';
while upcase(lagi)='Y' do
begin
ketemu :=false;
clrscr;
 write('nim mahasiswa dicari ?:' ); readln(nimcari);
 writeln;
for I:=1 to jumlahrecord do
begin
     seek(filemahasiswa,I-1);
     read(filemahasiswa,recordmahasiswa);
if recordmahasiswa.nim = nimcari then
begin
ketemu:=true;
writeln('nama mahasiswa     :',recordmahasiswa.nama);
writeln('tatap muka         :',recordmahasiswa.jtm:6:2);
writeln('tugas mandiri      :',recordmahasiswa.tm:7:2);
writeln('tugas terstruktur  :',recordmahasiswa.tt:8:2);
writeln('nilai mid          :',recordmahasiswa.mid:9:2);
writeln('ujian semester     :',recordmahasiswa.nus:10:2);
end;
end;
if not ketemu then
writeln('tidak ada nim mahasiswa ini !!!');
writeln;
write('ada lagi yang dicari(Y/T) ?: '); readln(lagi);
end;
close(filemahasiswa);
end.