Contoh Program Record

Program 1
USES CRT;
TYPE
     REC BARANG = RECORD
              NAMA          : STRING[25];
              KUALITAS   : CHAR;
              HARGA        : LONGINT;
      END;
VAR
      BARANG : RECBARANG;
BEGIN
      CLRSCR;
      WITH BARANG DO
      BEGIN
                 NAMA :='UBIN TISKA 20X20';
                 KUALITAS :='A';
                 HARGA := 14000;
      END;
      WITH BARANG DO
      BEGIN
                 WRITELN ('NAMA BARANG : ',NAMA);
                 WRITELN ('KUALITAS           : ',KUALITAS);
                 WRITELN ('HARGA                 : ',HARGA);
     END;

    READLN
END.

Program 2
USES CRT;
TYPE
        RECPEGAWAI = RECORD
                                                NOMOR                     ; LONGINT;
                                                NAMA                        ; STRING [35];
                                                TGL LAHIR                ; RECTANGGAL;
                                                GAJI                            ; LONGINT;
                                           END;

                                          RECTANGGAL = RECORD
                                                 TANGGAL,
                                                 BULAN,
                                                 TAHUN      ; INTEGER
                                          END.
VAR
        DATAPEG : RECPEGAWAI;
BEGIN
        CLRSCR;
        WITH DATAPEG DO
        BEGIN
                   NOMOR     := 56789;
                   NAMA        := 'MOLDYNNIZ';
                   TANGGAL  := 21;
                   BULAN       := 12
                   TAHUN       := 1992;
                   GAJI            := 750000;
         END;

        WITH DATAPEG DO
                WITH TGLLAHIR DO
                BEGIN
                           WRITELN('NAMA PEGAWAI    : ', NAMA);
                           WRITELN('TANGGAL LAHIR    :', TANGGAL, '/', BULAN, '/', TAHUN);
                END;

                READLN
END.