Массив имеет другое количество размерностей. Как исправить?

как исправить ошибку помечу в проге
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.

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