Program 7

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
with recordmahasiswa do
begin

ketemu := true;
writeln('nim mahasiswa     : ',nim:5);
write('koreksinya ? ');    readln(nim);
writeln('nama mahasiswa    : ',nama);
write('koreksinya ? ');    readln (nama);
writeln('tatap muka        : ',jtm:6:2);
write('koreksinya ? ');    readln (jtm);
writeln('tugas mandiri     : ',tm:7:2);
write('koreksinya ? '); readln (tm);
writeln('tugas Terstruktur : ',tt:8:2);
write('koreksinya ? '); readln (tt);
writeln('mid               : ',mid:9:2);
write('koreksinya ? '); readln (mid);
writeln('ujian semester    : ',nus:10:2);
write('koreksinya ? '); readln (nus);
writeln;
end;
end;

seek(filemahasiswa, I-1);
write(filemahasiswa,recordmahasiswa);
end;
if not ketemu then
writeln('tidak ada nomor mahasiswa ini !!!');

writeln;
write('ada lagi yang akan dikoreksi (Y/T) ?: '); readln(lagi);
end;

close(filemahasiswa);
end.