Contoh Program Record (turbo pascal)

program recordd;
uses wincrt;
type
D_MHSW=RECORD
NAMA : STRING[15];
NIM : STRING[7];
T_MANDIRI : INTEGER;
N_ABSEN : INTEGER;
N_UTS : INTEGER;
N_UAS : INTEGER;
N_AKHIR : REAL;
N_HURUF : CHAR;
M_KULIAH : STRING [15];
N,I : INTEGER;
END;
VAR
DATA:D_MHSW;
BEGIN
WRITE('INPUT NAMA : ');READLN(DATA.NAMA);
WRITE('INPUT NIM : ');READLN(DATA.NIM);
WRITE('INPUT M_KULIAH : ');READLN(DATA.M_KULIAH);
WRITE('INPUT T_MANDIRI : ');READLN(DATA.T_MANDIRI);
WRITE('INPUT N_ABSEN : ');READLN(DATA.N_ABSEN);
WRITE('INPUT N_UTS : ');READLN(DATA.N_UTS);
WRITE('INPUT N_UAS : ');READLN(DATA.N_UAS);

WRITELN;
WRITELN('========================================');
WRITELN(' DATA MAHASISWA SETELAH DIINPUT ');
WRITELN('========================================');
WRITELN('NAMA ANDA : ',DATA.NAMA);
WRITELN('NIM ANDA : ',DATA.NIM);
WRITELN('M_KULIAH ANDA : ',DATA.M_KULIAH);
WRITELN('T_MANDIRI ANDA : ',DATA.T_MANDIRI);
WRITELN('N_ABSEN ANDA : ',DATA.N_ABSEN);
WRITELN('N_UTS ANDA : ',DATA.N_UTS);
WRITELN('N_UAS ANDA : ',DATA.N_UAS);

READLN;
DONEWINCRT;
END.