Contooh ricord:

Uses wincrt;

Type

    Mahasiswa =Record

    Nama : String[30];

    NIM : String[20];

    Alamat : String[50];

End;

Var

   mhs : Mahasiswa ;

Begin

     Clrscr;

     write ('Nama :');readln (mhs.Nama);

     write ('NIM :'); readln (mhs.NIM);

     write ('Alamat :'); readln(mhs.Alamat);

     writeln;

     writeln ('Nama Anda :', mhs.Nama);

     writeln ('NIM Anda :', mhs.NIM);

     writeln ('Alamat Anda :', mhs.Alamat);

End.