array 3 dimensi

program A3d;
uses crt;
var
a:array[1..2,1..3,1..3] of shortInt;
i,j,k:byte;
begin
clrscr;
a[1,1,1]:=1;
a[1,1,2]:=2;
a[1,2,1]:=3;
a[1,2,2]:=4;
a[2,1,1]:=5;
a[2,1,2]:=6;
a[2,2,1]:=7;
a[2,2,2]:=8;
a[1,1,3]:=9;
a[1,2,3]:=1;
a[2,1,3]:=2;
a[2,2,3]:=3;
for i:= 1 to 2 do
begin
for j:= 1 to 2 do
begin
for k:= 1 to 3 do write(a[i,j,k]);
writeln;
end;
end;
readln;
end.