Program SIM dalam Pascal

Berikut contoh program menampilkan tampilan SIM dengan menggunakan Record dalam Pascal

program sim;
uses crt;
type A = record
nama :string[25];
jnisklm :string[10];
dkh :string[15];
ds :string[15];
rt :byte;
rw :byte;
kec :string[15];
kta :string[15];
tmpt :string[25];
tgl :1..31;
bln :1..12;
thn :integer;
tinggi :byte;
peker :string[15];
no :string[15];
kbp :string[15];
prov :string[10];
end;
var dt : A;
p,q,r : integer;
G,H : string;
i,j : integer;

begin
clrscr;
G :=('---------------');
H :=('| |');
writeln(' Program SIM C ');
writeln(G,G,G);
writeln(' Masukkan Data Diri Anda(Isikan dengan HURUF KAPITAL) ');
writeln;
write('Nama : '); readln(dt.nama);
write('Jenis Kelamin(Pria/Wanita): '); readln(dt.jnisklm);
writeln('Alamat');
write(' Dukuh : '); readln(dt.dkh);
write(' Desa : '); readln(dt.ds);
write(' RT : '); readln(dt.rt);
write(' RW : '); readln(dt.rw);
write(' Kecamatan : '); readln(dt.kec);
write(' Kabupaten/Kota : '); readln(dt.kta);
write('Tempat Lahir : '); readln(dt.tmpt);
write('Tanggal Lahir : '); readln(dt.tgl);
write('Bulan Lahir(angka) : '); readln(dt.bln);
write('Tahun Lahir : '); readln(dt.thn);
write('Tinggi : '); readln(dt.tinggi);
write('Pekerjaan : '); readln(dt.peker);
write('No. SIM : '); readln(dt.no);
writeln(G,G,G);
writeln('Isikan Waktu dan Tempat anda membuat SIM');
write('Kabupaten : '); readln(dt.kbp);
write('Provinsi(singkatan) : '); readln(dt.prov);
write('Tanggal : '); readln(p);
write('Bulan(angka) : '); readln(q);
write('Tahun : '); readln(r);

clrscr;
if r >= (dt.thn+17) then
begin
writeln(G,G,G,G);
for i:=2 to 6 do
begin
write(H);
gotoxy(46,i);
writeln(H);
end;
gotoxy(1,7); writeln(G,G,G,G);
gotoxy(1,10); writeln(G);
gotoxy(6,4); write('LOGO');
gotoxy(24,2); write('KEPOLISIAN NEGARA');
gotoxy(23,3); write('REPUBLIK INDONESIA');
gotoxy(54,3); write('C');
gotoxy(52,6); write(dt.prov);
gotoxy(17,4); write(G,G);
gotoxy(23,5); write('SURAT IZIN MENGEMUDI');
gotoxy(23,6); writeln('( Driving License )');
writeln;
write('Nama : ',dt.nama);
gotoxy(52,8); write(' ',dt.jnisklm);
gotoxy(9,9); write('Alamat : '); writeln(dt.dkh,' ','RT ',dt.rt,'/',dt.rw,' ',dt.ds);
gotoxy(18,10);write(dt.kec);
gotoxy(18,11);write(dt.kta);
gotoxy(18,12);write('Tempat & : ',dt.tmpt);
gotoxy(18,13);write('Tgl.Lahir : ',dt.tgl,'-',dt.bln,'-',dt.thn);
gotoxy(18,14);write('Tinggi : ',dt.tinggi,'cm');
gotoxy(18,15);write('Pekerjaan : ',dt.peker);
gotoxy(18,16);write('No. SIM : ',dt.no);
gotoxy(18,17);write('Berlaku s/d: ',dt.tgl,'-',dt.bln,'-',r+5);
gotoxy(20,18);write(dt.kbp,',',p,'-',q,'-',r);
gotoxy(20,19);write('KAPOLRES');
gotoxy(26,21);write('TTD');
gotoxy(20,23);write('Drs. PUTRA ANGKASA, M.H');
gotoxy(20,24);write(G,G);
gotoxy(20,25);write(' AKBP NRP.567891234 ');
for j:=11 to 22 do
begin
gotoxy(1,j); writeln(H);
end;
gotoxy(6,16); write('Photo');
gotoxy(6,17); write('Anda');
gotoxy(1,22); writeln(G);
end
else
begin
write('***** MAAF UMUR ANDA TIDAK MENCUKUPI UNTUK MEMBUAT SIM C *****');
write(' SILAHKAN MENUNGGU BEBERAPA TAHUN LAGI ^_^ ');
end;
readln;
end.