TYPE Tsurad = RECORD
case integer of
1: (x,y: real);
2: (r, fi: real);
end;
Tutvar = RECORD
case typ : (kruh, stvorec, obdlznik) of
kruh : (r: real);
stvorec : (a: real);
obdlznik: (c,d: real);
end;
Var sur: Tsurad;
utvar:Tutvar;
Begin
sur.x:=25.6;
if utvar.typ = obdlznik then writeln( utvar.c,' ',utvar.d);
End.
Premenná sur obsahuje dve reálne položky ich mená môžu byť x,y alebo r,fi. Keď ale zmením premennú x zmení sa aj premenná r - majú spoločnú pamäť.
Premenná utvar obsahuje jednu premennú typ (jej typ je určený vymenovaním) a vyhradí miesto podľa najdlhšej vetvy case - tu to budú ešte 2 reálne položky.