Deklarasi Record

Diawali kata cadangan Record , lalu diikuti daftar field dan diakhiri kata cadangan end:

Contoh:

type
    data_pegawai = record kd_peg : string[5];
        nama : string[15]; 
        alamat : string[20]; 
        gaji : longint;
        end; 
var
    pegawai : data_pegawai;

Atau Langsung Di Deklarasikan Di Varibel :

var
    pegawai : record
        kd_peg : string[5];
        nama : string[15]; 
        alamat : string[20]; 
        gaji : longint;
        end;

Contoh :

program contoh_record_sederhana; uses crt;
type
    data_pegawai = record
        kd_peg : string[5]; 
        nama : string[15];
        alamat : string[20];
        gaji : longint; 
        end;
var
    pegawai : data_pegawai;
begin 
clrscr;
    write('Kode pegawai =');readln(pegawai.kd_peg); 
    write('Nama pegawai =');readln(pegawai.nama); 
    write('Alamat pegawai =');readln(pegawai.alamat); 
    write('Gaji pegawai =');readln(pegawai.gaji); 
    {cetak}
    writeln('Kode pegawai :',pegawai.kd_peg); 
    writeln('Nama pegawai :',pegawai.nama); 
    writeln('Alamat pegawai :',pegawai.alamat); 
    writeln('Gaji pegawai :',pegawai.gaji); readln;
end.