unit utab; { jednotka obsahujici typ tab reprezentujici } { tabulku integeru s nejvyse MAX prvky typu integer } interface const MAX = 100; type pole = array [1..MAX] of integer; delka = 0..MAX ; tab = record A : pole; { pole s prvky tabulky } D : delka; { skutecna velikost tabulky } end; implementation end.