Как изменить размерность массива

Задача состоит в том чтобы на экран вывести вот такую картинку
01111
00111
00011
00001
00000

в программе выдает ошибку "Массив имеет другую размерность"

program tre;
const n=5;
var A:array [1..n] of byte;
x,y: byte;
begin
writeln;
for x:=1 to n do
begin
for y:= 1 to n do
if x>=y
then A[x,y]:=0 - (Вот в этом месте начинаются проьлемы)
else A[x,y]:=1
write (A[x,y]);
end;
end.

что делать?) ) подскажите!)))