program MyTrippyArrayDemo;

uses
 Forms;

type
 SuperArrayType = array[1..3, 1..3] of Char;

var
 SuperArray: SuperArrayType;

begin
 SuperArray[1,1] := 'X';
 SuperArray[1,2] := ' ';
 SuperArray[1,3] := 'O';
 SuperArray[2,1] := ' ';
 SuperArray[2,2] := 'X';
 SuperArray[2,3] := ' ';
 SuperArray[3,1] := 'O';
 SuperArray[3,2] := ' ';
 SuperArray[3,3] := 'X';

 Writeln(SuperArray[1,1],SuperArray[1,2],SuperArray[1,3]);
 Writeln(SuperArray[2,1],SuperArray[2,2],SuperArray[2,3]);
 Writeln(SuperArray[3,1],SuperArray[3,2],SuperArray[3,3]);

 Readln;
end.