Трёхмерный массив Опции

[Yulyasha]

Помогите пожалуйста написать программу заполнения заштрихованной области трехмерного массива.
Заполнение провести единицами, с использованием процедур.
Вывести массив по горизонтальным плоскостям

[Yulyasha]

мой вариант, но он неправильный,к сожалению
еще подумаю,как переделать, но пока не получается

Код

const n=6;
m=8;
var a:array [1..n,1..m]of integer; i,j:integer;
    k:integer;
begin
k:=m;
for i:=1 to n do
    for j:=k  downto k-2 do begin
    if (k>0) then begin
       a[i,j]:=1;
       k:=k-1;
       end; end;
for i:=1 to n do begin
    for j:=1 to m do
        write (a[i,j]:5);
        writeln;
        end;
readln;
end.