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;