Задача о нахождении координат просветов.... Опции

[El_Encarnado]

Доброго времени суток. Столкнулся с задачкой,а как решить,к сожалению, не знаю. Нужна ваша помощь!

Собственно сама задача:

Куб состоит из n3 прозрачных и не прозрачных элементарных кубиков. Имееется ли хотябы 1 просвет по каждому из трех измерений? Если это так,вывести координаты каждого просвета.
Рекомендация: Для хранения кубика выделить 3ех мерный массив с базовым типом минимально возможного размера,так как значениями его будут только 1 и 0. При тестированиии полезно ипользовать рандомизацию случайным образом присвоить элементам 0 или 1,возможно с указанием вероятности тех или других с последующей послойной распечаткой.

И если можно,то с пояснениями основных моментов. Заранее спасибо.

ЗЫ Рекомендация была в условии.

[termin]

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

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

const n=5;

var
a: array [1..n,1..n,1..n] of byte;
i,j,k: integer;
vis: boolean;
begin
randomize;
for i:=1 to n do
for j:=1 to n do
for k:=1 to n do
a[i,j,k]:=random(2);
writeln('Massiv posloino po osi z');
for k:=1 to n do
begin
writeln;
writeln('Sloi ',k);
for i:=1 to n do
begin
writeln;
for j:=1 to n do
write(a[i,j,k],' ');
end;
writeln;
end;
for i:=1 to n do
for j:=1 to n do
begin
vis:=true;
for k:=1 to n do
if a[i,j,k]=1 then begin vis:=false; break; end;

if vis then writeln('Prosvet v tochke [',i,',',j,',z] po osi z');
end;
for j:=1 to n do
for k:=1 to n do
begin
vis:=true;
for i:=1 to n do
if a[i,j,k]=1 then begin vis:=false; break; end;
if vis then writeln('Prosvet v tochke [x,',j,',',i,'] po osi x');
end;
for i:=1 to n do
for k:=1 to n do
begin
vis:=true;
for j:=1 to n do
if a[i,j,k]=1 then begin vis:=false; break; end;
if vis then writeln('Prosvet v tochke [',i,',y,',k,'] po osi y');
end;
readln;
end.


ЗЫ И прежде чем что-либо говорить, надо головой сначала подумать.