write(‘——————————————————————————–‘);
writeln(‘|’,’NO’:1,’|’,’NIM’:12,’|’,’NAMA’:18,’|’,’NTM’:4,’|’,’NTMD’:4,’|’,’NTT’
:4,’|’,’NP’:4,’|’,’NMID’:4,’|’,’NUJ’:4,’|’,’NA’:4,’|’,’KLA’);
write(‘——————————————————————————–‘);
for i := 1 to jumlahrecord do
begin

read(fileTmahasiswa,recordmahasiswa);
textcolor(white);
with recordmahasiswa do