Przykład
Zdefiniowano rekord Tosoba z polami prostymi nazwisko, imie,
StanCywilny, polem DataUrodzenia  typu rekordowego Tdata i
polem dzieci  typu tablicowego Ttab_dzieci, a także typ wylicze-
niowy Tstany, zdefiniowano przed definicją rekordu Tosoba.
TYPE
st15=STRING[15];
st20=STRING[20];
Tdata=RECORD
dzien,
miesiac,
rok:integer;
END;
Tdziecko=RECORD
imie :st15;
Data_Ur :Tdata;
END;
Tstany=(samotny, zonaty, wdowiec, rozwiedziony);
Ttab_dzieci=ARRAY[1..MLD] OF Tdziecko;
Tosoba=RECORD
nazwisko :st20;
imie :st15;
DataUrodzenia :Tdata;
StanCywilny :Tstany;
LiczbaDzieci :Byte;
dzieci :Ttab_dzieci
END;
Rozmiar rekordu jest sumą rozmiarów wszystkich pól rekordu.
Na przykład dla zmiennej rekordowej X:
VAR X:T;
rozmiar rekordu k można odczytać za pomocą funkcji:
k:=SizeOf(X);