penerapan Record in Record dalam Program (PASCAL)

COPAS program Kawan.. lumayan buat referansi kalian yg masih pada bingung ama dasar2 PASCAL .. nih pake record dalam record.. cekidot.. nih pake DEV-PAS

program curriculum_vitae;
uses crt;

type
    Tdate = record
            tgl   : byte;
            bulan : byte;
            tahun : integer;
            end;

    Tbiodata = record
            ktp       : string;
            nama      : string;
            tgl_lahir : Tdate;
            alamat    : string;
            jk        : string;
            status    : string;
            agama     : string;
            end;

var

   org : Tbiodata;

begin
     writeln('    Curriculum Vitae    ');
     writeln('========================');
     write('KTP            : '); readln(org.ktp);
     write('Nama           : '); readln(org.nama);
     write('Tanggal Lahir  : '); readln(org.tgl_lahir.tgl);
     write('Bulan          : '); readln(org.tgl_lahir.bulan);
     write('Tahun          : '); readln(org.tgl_lahir.tahun);
     write('Alamat         : '); readln(org.alamat);
     write('Jenis Kelamin  : '); readln(org.jk);
     write('Status         : '); readln(org.status);
     write('Agama          : '); readln(org.agama);

     writeln();
     clrscr;
     writeln('Data Pelamar Kerja adalah sebagai berikut : ');
     writeln('KTP           : ',org.ktp);
     writeln('Nama          : ',org.nama);
     writeln('Tanggal Lahir : ',org.tgl_lahir.tgl,'-',org.tgl_lahir.bulan,'-',org.tgl_lahir.tahun);
     writeln('Alamat        : ',org.alamat);
     writeln('Jenis Kelamin : ',org.jk);
     writeln('Status        : ',org.status);
     writeln('Agama         : ',org.Agama);

     writeln();
     writeln();
     writeln('silahkan tekan tombol apapun untuk menutup program...');
     readkey();

end.