====== Többdimenziós tömbök ====== Formátum type típus_megnevezése = array [felsorolás_típus_1, felsorolás_típus_2] of adattípus; Példa type felsorolas_tipus_1 = 1..50; felsorolas_tipus_2 = 3..62; tomb_tipus = array [felsorolas_tipus_1, felsorolas_tipus_2] of integer; type statusz_tipus = (X, O, Ures); tabla_tipus = array[1..3, 1..3] of statusz_tipus; var tabla : tabla_tipus; ciklusvaltozo_1, ciklusvaltozo_2 : integer; begin for ciklusvaltozo_1 := 1 to 3 do for ciklusvaltozo_2 := 1 to 3 do tabla[ciklusvaltozo_1, ciklusvaltozo_2] := Ures; end;