REKORDY:


type student is record
imie, nazw: string(1..20)
indeks: pozitive
rok: integer range 1..6;;
oceny: tablica_ocen;
data_ur: data;
end record;

s: student;
s.imie:="Jan"

s:=("Jan ", "Nowak ", 3456, 2);
s:=(indeks=>3456, rok=>2, imie=>"Jan ");
nazw=>(others=>'');

if s1=s then...
s1/=s
s1:=s;

----------------------------------------------------------------

type tab_stud is array (integer range 1..10) of student;
t: tab_stud;

jak odwolac sie do 3 studenta
:
put(t(3).imie);


type ocena is integer range 2..5;
type tablica_ocen is array (1..12) of ocena;

t(3).oceny(5):=4;

----------------------------------------------------------------

typ data is record
d, m, r : positive;
end record;
t(3).data_ur.r := 1985