Program 8

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);

with recordmahasiswa do
begin
writeln('nim mahasiswa  : ',nim:5);
write('koreksinya ? '); readln(nim);
writeln('nama mahasiswa : ',nama);
write('koreksinya ? '); readln(nama);
writeln('jtm mahasiswa  : ',jtm:6:2);
write('koreksinya ? '); readln(jtm);
writeln('tm mahasiswa   : ',tm:7:2);
write('koreksinya ? '); readln(tm);
writeln('tt mahasiswa   : ',tt:8:2);
write('koreksinya ? '); readln(tt);
writeln('mid mahasiswa  : ',mid:9:2);
write('koreksinya ? '); readln(mid);
writeln('nus mahasiswa  : ',nus:10:2);
write('koreksinya ? '); readln(nus);
end;

seek(filemahasiswa,urutanrecord-1);
write(filemahasiswa, recordmahasiswa);

end;

writeln;
write('ada lagi yang akan di koreksi (Y/T) ?: '); readln(lagi);
end;
close(filemahasiswa);
end.