RECORD:

Khai báo record:

Cú pháp: 

Cách 1:     type  <ten kieu record> =record

<ten truong>:<kieu DL>;

<ten truong>:<kieu DL>;

<ten truong>:<kieu DL>;

…

End;

Var < ten bien kieu record>:<ten kieu record>;

Cách 2: khai báo trực tiếp

Var <ten bien kieu record>:record

<ten truong>:<kieu DL>;

….

End;

Ví dụ: type BG=record

MSV:string[10];

Hoten:string[20];

Monhoc:array[1..10] of real;

Dtb:real;

End;

Var sv:BG;

Truy nhập bản ghi:

Ghi dữ liệu vào bản ghi: write(<ten bien ban ghi>.<ten truong>); { đọc DL nhập từ bàn phím ghi vào bản ghi}

Hiện DL từ bản ghi: 

Ví dụ: write(‘nhap MSV’); readln(sv.MSV);

Dùng lênh with:

Cú pháp: with <ten bien ban ghi> do begin { các lệnh với tên trường} end;

Ví dụ: with sv do begin write(‘nhap MSV’); readln(MSV); end;