Program Pascal Record

Kasus : buatlah sebuah program record untuk menginput data mahasiswa. Berikut kode programnya :

program rekor;
uses crt;
type
TSiswa = record
npm : string[8];
nama : string[25];
agama : string[10];
end;
var
s : TSiswa;
umur : integer;
ts : integer;
tl : integer;

begin
clrscr;
write ('Masukkan tahun sekarang         : ');readln (ts);
writeln;
writeln ('Isikan data anda dalam Form ini');
writeln;
write ('NPM             : ');readln (s.npm);
write ('NAMA            : ');readln (s.nama);
write ('TAHUN LAHIR     : ');readln (tl);
umur := (ts-tl);
write ('AGAMA           : ');readln (s.agama);
writeln;
writeln ('Berikut ini informasi yang anda berikan: ');
writeln ('NIM   : ', s.npm);
writeln ('NAMA  : ', s.nama);
writeln ('Umur  : ', umur);
writeln ('AGAMA : ', s.agama);
Readln;
end.

Output programnya :