Record di dalam Record

Record bisa berisi record lain sebagai field. Seperti contoh record tanggal dan jam dikombinasikan menjadi sebuah record saat ini

type tanggal = record
        bulan, hari, tahun : integer;
        end;

type waktu = record
        jam, menit, detik : integer;
        end;

type waktu_ini = record
         tanggal_ini : tanggal;
         waktu_ini : waktu
        end;

Kemudian kita perlu membuat variabel kerja

var saat_ini : waktu_ini;

Type alamat = record

            Jalan : string;

            Kota : string;

         End;

         karyawan = record

            Kode : string;

Nama : string;

Almt : alamat;

         End;

Var kar : array [1..50] of karyawan

Isi Data Karyawan

Kode Karyawan         :  Nama Karyawan        :   Alamat Karyawan      : Kota                            :

Isi data lagi (Y/T) : -

With kar, almt do