Нужна программа вывода трехмерного массива в паскале!

Var

i, j, k:integer;

a:array[1 ... 3,1 ... 4,1 ... 5]of integer;

begin

for i:=1 to 3 do

begin

writeln ('Слой ', i) ;

for j:=1 to 4 do

begin

for k:=1 to 5 do

begin

a[i, j, k]:=random (10) ;

write (a[i, j, k],' ') ;

end;

writeln;

end;

writeln;

end;

end.