Program 4

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;
begin
assign(filemahasiswa,'mhs.dat');
reset(filemahasiswa);
jumlahrecord:=filesize(filemahasiswa);
clrscr;
writeln('---------------------------------------------------------------------');
writeln('nim                                                                  ');
writeln('Mhs.  nama   T.muka   T.mandiri   T.terstruktur   mid   NU.semester  ');
writeln('---------------------------------------------------------------------');
for I:= 1 to jumlahrecord do
begin
read(filemahasiswa,recordmahasiswa);
with recordmahasiswa do
writeln(nim,nama,jtm,tm,tt,mid,nus:10:2);

end;
writeln('--------------------------------------------------------------------');
close(filemahasiswa);
end.